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Editorial 



RESPUESTA POSITIVA 



El mes pasado anunciabamos a nuestros lectores la 
reduccion de precios de los videojuegos. Ahora, en 
el presente numero, ya tenemos algunos elementos 
para hacer balance, bien que provisional y de urgen- 
cia, sobre las consecuencias directas que tal medida 
ha tenido, y se puede pensar que tendra, sobre esta 
franja del mercado de software. 

No decimos nada nuevo si constatamos que, del 
lado de la produccion y la distribucion, el apoyo que 
recibio la reduccion de precios no estaba exento de 
cierto desasosiego respecto del rumbo definitive que 
tomarian los acontecimientos. Tal recelo se justifi- 
caba por el temor a que el descenso de precios, y del 
margen comercial, no fuera contrarrestado por el 
crecimiento del mercado. 

Tambien cabia esperar una cierta reserva psicolo- 



gica de parte de los usuarios, habituados a valorar la 
calidad de los programas en funcion de su precio. 

A nuestro juicio y teniendo siempre en cuenta las 
limitaciones de perspectiva que mencionabamos an- 
tes, los primeros efectos ban sido de tono claramente 
positivo: tanto las empresas como los compradores 
ban asimilado la nueva tarifa. 

Sin duda era necesario que los videojuegos se ofre- 
cieran en el mercado a un precio que resultara justo 
para el comprador, a la vez que asimilable a su poder 
adquisitivo. 

Esta era una necesidad impostergable si se queria 
crear un mercado estructurado e integrado en el que 
nadie tuviera conciencia de ser inadecuadamente tra- 
tado. El pasado mes se dio un paso muy importante 
en ese sentido. 
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UN POCO DE HISTORIA 



CORRIENTEELECTRICA 
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RESISTENCIA 



CONDENSADORES 



En este numero de la revista vamos a 
empezar una serie de articulos destina- 
dos a desvelar los secretes que encie- 
rran, bajo sus teclados, nuestros mi- 
croordenadores. 

Se trata de explicar de una forma lo 
mas clara posible y sin muchos tecni- 
cismos, todo lo referente al hardware 
de los microordenadores de la gama 
Commodore: el C-64 y el C-128. 

Es posible que la mayoria de voso- 
tros hayais oido hablar mas de una vez 
de programas hechos en codigo ma- 
quina, de sus prestaciones en cuanto a 
velocidad respecto al conocido BA- 
SIC, y tambien es posible que mas de 
uno de vosotros haya pensado en rea- 
lizar algunos programas pero os en- 
contrais con una falta de informacion 
sobre el tema. 

Esta serie de articulos esta pensada 
para poder conocer todas las particu- 
laridades de estos microordenadores 
desde el punto de vista del hardware. 
Para ello habra unas partes comunes a 
las dos unidades de COMMODORE 
antes citadas y por otra parte habra 
una atencion especial a cada una de 
eUas. 

LOS TEMAS 

En primer lugar repasaremos un 
poco el origen de los ordenadores y los 
microordenadores para seguir con una 
descripcion de las unidades fisicas mas 
usadas en el mane jo del hardware, asi 
como un estudio de los componentes 
electronicos que intervendran poste- 
riormente en el analisis de funciona- 
miento de cada microordenador. 

Posteriormente haremos una des- 
cripcion de los terminos mas usuales 
con que nos encontraremos, para en- 
trar de Ueno en materia. 

Empezaremos primero con una des- 
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cripcion del tipo de informacion que 
manejan los microordenadores, se- 
guira una descripcion general por blo- 
ques de un microordenador basico. 

Desde este punto empezaremos por 
hacer distinciones entre un tipo de mi- 
croordenador u otro. 

El estudio de cada modelo en par- 
ticular nos llevara a estudiar, por se- 
parado, tanto la CPU como sus com- 
ponentes especiales y su esquema 
electrico. 

Mas adelante seguiremos con los 
equipos perifericos mas usuales tales 
como unidad de cinta (cassette) y uni- 
dades de discos (disquettes o floppys). 

Todo ello permitira un conoci- 
miento bastante extenso del ordena- 
dor que tenemos en nuestras manos. 

Despues de la descripcion del hard- 
ware pasaremos a las rutinas en len- 
guaje maquina que llevan incorpora- 
dos los ordenadores y que son las que 



permiten el que podamos trabajar con 
ellos. 

UN POCO DE HISTORIA 

Muchos de vosotros os habreis pre- 
guntado algunas veces cuales han sido 
los inicios de los microordenadores y 
el porque de su aparicion; pues bien, 
hagamos un poco de historia. 

El origen de la informatica se re- 
monta a finales del siglo xix cuando se 
intenta mecanizar el sistema del censo 
de la poblacion en Estados Unidos 
aprovechando la idea del frances Jac- 
quard en la automatizacion de unos te- 
lares. El sistema consistia en poder 
cambiar el dibujo de los tejidos gracias 
a la informacion almacenada en unas 
tar j etas perforadas, las cuales eran lei- 
das en el momento de realizar el tra- 
bajo. La forma de almacenar infor- 
macion en unas tarjetas de papel y po- 
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der ser leidas, en aquel entonces por 
elementos mecanicos, planteo la idea 
de automatizar ciertos procesos que 
hasta aquel momento se habi'an reali- 
zado de forma totalmente manual. 
Asi, en el calculo del censo ameri- 
cano, la automatizacion consiguio re- 
bajar drasticamente el periodo de pro- 
ceso de datos. 

A principios de siglo, la electronica 
empezo a tomar un cierto auge y se 
empezaron a construir las primeras 
valvulas. Con estos elementos activos 
se empezaron a construir los primeros 
equipos electronicos, con unos mon- 
tajes bastante voluminosos y con un 
desprendimiento de calor muy consi- 
derable. La necesidad que tenia tanto 
la Industria como el Ejercito en cons- 
truir maquinas que fuesen capaces de 
hacer calculos matematicos asi como 
que pudieran procesar gran cantidad 
de datos en poco tiempo, les Uevo a 
construir ordenadores, aunque esto 
supusiera el llenar grandes salas para 
llegar a conseguir una infima parte de 
lo que hoy se consigue con cualquier 
microordenador. 

Posteriormente se fueron descu- 
briendo nuevos componentes electro- 
nicos y aparecio el transistor. Esto 
abrio unos horizontes mas amplios ya 
que los circuitos electronicos queda- 
ban muy reducidos y con una disipa- 
cion de calor tambien inferior. 

Esto trajo consigo una reduccion en 
el tamaiio de los ordenadores y por 
tanto se empezo a buscar nuevas po- 
sibilidades tanto en velocidad de cal- 
culo como en capacidad de memoria y 
en facilidad de programacion. 

Pero la tecnica siguio avanzando y 
empezaron a construirse unos com- 
ponentes complejos, los cuales alber- 
gaban en su interior y con unas di- 
mensiones mas reducidas, una serie de 
circuitos electronicos que realizaban 
unas funciones muy concretas. Habia 
aparecido el circuito integrado (chip). 

Al principio estos circuitos integra- 
dos estaban formados por pocos com- 
ponentes, lo que constituia una pe- 
queiia escala de integracion. Poste- 
riormente, los circuitos integrados 
fueron ganando en complejidad hasta 
llegar a una escala de integracion me- 
dia. Esto permitio, en los aiios 60, rea- 



lizar unos ordenadores bestante com- 
pactos y con unas capacidades de pro- 
ceso francamente elevadas. 

Hasta aqui hemos visto de forma 
muy rapida como han ido evolucio- 
nando los grandes ordenadores, pero 
^cuando entran en juego los microor- 
denadores? Pues bien, el proceso de 
integracion aumento muchisimo en los 
ultimos aiios y se consiguio introducir 
dentro de un chip todos los circuitos 
que constituian la unidad central de 
proceso de los grandes ordenadores. 
Esto acaecio en el aiio 1971 cuando la 
empresa Intel decidio sacar al mer- 
cado el primer microprocesador, el 
modelo 4004, que era capaz de ma- 
ne jar palabras de 4 bits. 

Posteriormente fueron apareciendo 
otros modelos tales como el 8008, el 



8080 y el 8085 de Intel, el 6502 de 
Rockwell, el 6800 de Motorola y el 
Z80 de Zilog, los cuales han dado un 
gran impulso en el desarrollo de la in- 
formatica. Todos estos microprocesa- 
dores son capaces de manejar palabras 
de 8 bits. 

Muy recientemente han aparecido 
una serie de microprocesadores capa- 
ces de manejar palabras de 16 y 32 
bits, tales como el 8088, el 8086, el 
80186, el 80286 y el 80386 de Intel; el 
68000, el 68010 y el 68020 de Moto- 
rola; el Z8000 y el Z80000 de Zilog y 
otros mas. 

La industria no se ha quedado atras 
en la utilizacion de los microprocesa- 
dores. En los inicios de la electronica, 
para reaHzar un equipo con circuitos 
electronicos, era necesario realizar un 
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diseno especial para cada aplicacion. 
Esto llevaba consigo un elevado coste 
de fabricacion, un tiempo de diseno 
del circuito apreciable y, lo mas im- 
portante, una rigidez total y absoluta 
respecto a posibles cambios o modifi- 
caciones de los equipos. Esto es lo que 
se llama sistemas de logica cableada. 

Estos sistemas aiin se utilizan en 
muchas aplicaciones pero, cada vez 
mas, se intenta huir de unas estructu- 
ras rigidas. 

Para evitar estos problemas, se 
penso en hacer una serie de circuitos 
electronicos con logica cableada pero 
que fueran mas versatiles; es decir, 
que de alguna manera les fuera posi- 
ble el poder cambiar la aplicacion de 
una forma bastante facil. Este papel 
ha sido muy bien asumido por los mi- 




croprocesadores, los cuales de una 
forma muy rapida y precisa realizan 
las operaciones que les ban progra- 
mado. 

Actualmente es bastante dificil con- 
cebir un diseno electronico sin que 
aparezcan uno o varios microproce- 
sadores trabajando simultaneamente. 

CONCERTOS BASICOS 

Antes de proseguir con un nivel mas 
detallado del hardware de nuestros 
microordenadores, creemos necesario 
repasar algunos conceptos basicos de 
electronica que nos permitiran avan- 
zar progresivamente en este dificil ca- 
mino del hardware. La descripcion de 
estos conceptos sera enfocada de una 
forma practica, sin pretender dar un 
curso completo de electronica o fisica, 
de forma que si alguno de vosotros de- 
sea experimentar con el microorde- 
nador, sepa que es cada elemento y la 
funcion que realiza. 

En primer lugar empezaremos con 
la descripcion de las unidades fisicas 
que nos encontraremos al describir los 
microordenadores para seguir con una 
descripcion basica de los componentes 
que los forman. 

UNIDADES DE TiEMPO 

Empezaremos por definir las uni- 
dades de tiempo que usaremos nor- 
malmente. La unidad basica de 
tiempo es el segundo y como submul- 
tiplos de el tenemos: el mihsegundo (1 
ms = 10"— 3 seg.), el microsegundo (1 
us=10"-6 seg.) y el nanosegundo (1 
ns= 10'— 9 seg.). Las formulas de equi- 
valencia pueden verse en la tabla ad- 
junta donde la unidad buscada esta en 
la columna de la izquierda y su equi- 
valente en la casilla correspondiente. 

CORRIENTE ELECTRICA 

La corriente electrica que pasa por 
un conductor esta producida por el 
desplazamiento de los electrones en su 
interior. Para que exista circulacion de 
electrones por un conductor es nece- 
sario que entre sus extremes se apli- 
que una diferencia de potencial, es de- 
cir, en un extremo del conductor co- 



locaremos un material con exceso de 
electrones y en el otro lado, coloca- 
remos otro material con escasez de los 
mismos. Al unirlos habra una circu- 
lacion de electrones del extremo 
donde estaban en exceso hasta el otro 
extremo. 

La densidad de electrones que cir- 
culan se denomina intensidad de la co- 
rriente electrica. Si esta corriente 
siempre tiene la misma intensidad y 
ademas siempre va en la misma direc- 
cion, diremos que la corriente es con- 
tinua. Por otro lado, si la intensidad ■ 
varia con el tiempo y cambia de direc- 
cion alternativamente, diremos que la 
corriente es alterna. 

La unidad de medida de la corriente 
electrica es el Amperio (1 A, 1 Amp.) 
y como submiiltiplos usaremos el mi- 
liamperio (1 mA=10"— 3 Amp.), el 
microamperio (1 uA=10" — 6 Amp.) y 
el nanoamperio (1 nA=10"— 9 Amp.). 

Una representacion grafica de la co- 
rriente electrica puede verse en la fi- 
gura 2, donde el eje de coordenadas 
horizontal expresa unidades de 
tiempo; por encima de este eje hori- 
zontal se expresan los valores de co- 
rriente positives, y por debajo del 
mismo se expresan los valores negati- 
ves de la misma. En el caso de la fi- 
gura 2a representamos una corriente 
continua, ya que no varia con el 
tiempo, y en la figura 2b podemos ver 
la representacion de un tipo de co- 
rriente alterna, cuya forma de onda se 
llama senoidal. (En las figuras 2c y 2d 
pueden verse las formas de onda trian- 
gular y cuadrada.) 

TENSION CONTINUA Y ALTERNA 

Al describir lo que era la corriente 
electrica hemos dicho que era nece- 
sario disponer de una fuente de elec- 
trones capaz de poder mantener un su- 
ministro de los mismos. La unidad de 
medida de la diferencia de potencial o 
tension es el voltio y los submultiplos 
mas empleados son: el milivoltio 
(ImV = 10"— 3 voltios) y el microvol- 
tio (1 uV = 10"-6 voltios). Al igual 
que en la corriente electrica, existen 
dos tipos de tension: la tension conti- 
nua y la tension alterna. 

La tension continua es aquella que 
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permanece constante a lo largo del 
tiempo, es decir, siempre tiene el 
mismo valor. (Ver fig. 3a.) 

La tension alterna es aquella que su 
magnitud depende del tiempo. Exis- 
ten diferentes formas de onda pero las 
que mas se utilizan son: senoidal, 
triangular y cuadrada. (Ver figs. 3b, 3c 
y3d.) 

LEY DE OHM 

La potencia es el consume de ener- 
gia por unidad de tiempo. La unidad 
de medida es el vatio (1 W) y el sub- 
miiltiplo mas utilizado es el milivatio 
(1 mW = 10"— 3 W). Generalmente 
trataremos de potencia disipada por 
una resistencia o potencia entregada 
por una fuente de alimentacion. 

Las tres unidades: intensidad, ten- 
sion y potencia, estan relacionadas 
mediante la ley de Ohm de la siguiente 
forma: 

1 Amp = 1 voltio/1 ohmio 
1 vatio = 1 voltio * 1 amp 

Con estas formulas y sus derivados 
podemos obtener cualquier valor co- 
nociendo los demas. 

Una de las caracteristicas de las se- 
nales alternas es que su amplitud varia 
con el tiempo. La frecuencia de una 
serial alterna es el ndmero de veces 
que dicha senal repite su forma por 
unidad de tiempo. La unidad de me- 
dida es el hertzio (Hz), o bien, ciclos 
por segundo (c/s). NOrmalmente se 
usan los nuiltiplos del hertzio y estos 



son: el kilohertz (1 KHz = 10"3 Hz), 
el megahertz (1 MHz = 10"6 Hz) y el 
gigahertz (1 GHz = 10"9 Hz). 

Existe una correspondencia entre el 
periodo de una seiial alterna y su fre- 
cuencia. La formula de conversion es: 

frecuencia = l/(periodo) 

La tabla 4 nos muestra una conver- 
sion rapida. 

Debe tenerse en cuenta que la ten- 
sion continua es un caso particular de 
la tension alterna, donde la frecuencia 
es cero. 

RESISTENCIA 

Resistencia es la dificultad que 
ofrece un elemento al paso de la co- 
rriente electrica. La unidad de medida 
es el ohmio y los miiltiplos usados nor- 
malmente son: el kiloohm (1 K@ = 
10'3 ohms) y el megohm (1 M@ = 
10'~6 ohms). 

Existen unos componentes electro- 
nicos dedicados a limitar la corriente 
electrica que se llaman resistencias. 
Estas pueden dividirse en dos tipos: 
las resistencias fijas y las ajustables. 
Las primeras son elementos de 2 ter- 
minales que tienen un valor fijo y las 
segundas son las que ofrecen la posi- 
bilidad de poder ajustar su valor, ge- 
neralmente disponen de 3 terminales. 
Normalmente se les llama potencio- 
metros y se usan para poder conseguir 
un ajuste del circuito. 

Debido a que es un componente 
que se opone al paso de la corriente 
electrica (ofrece resistencia) sufre un 
calentamiento debido a la potencia di- 
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sipada en ella. Generalmente, en el in- 
terior de los microordenadores, en- 
contraremos resistencias de valores 
elevados (algunos K@) y de baja di- 
sipacion de potencia. 

El valor de las resistencias de ele- 
vada potencia normalmente viene es- 
crito en el mismo cuerpo del compo- 
nente mientras que el valor de las re- 
sistencias de baja potencia viene de- 
terminado por unas franjas de colores 
en el cuerpo de las mismas y de 
acuerdo con la tabla 5. 

CONDEIMSADORES 

Un condensador es un elemento ca- 
paz de almacenar energia y de cederla 
posteriormente. 

Para medir esta capacidad de al- 
macenamiento de energia se usa como 
unidad el faradio. Esta unidad es muy 
elevada y normalmente se usan sus 
submiiltiplos, que son: el microfaradio 
(1 uF = 10"-6 F), el nanofaradio (1 
nF = 10"-9 F) y el picofaradio (1 
pF = 10"-12 F). 

Existen varies tipos de condensa- 
dores dependiendo del lugar donde es- 
ten conectados. Para grandes capaci- 
dades tenemos los condensadores 
electroliticos y los de tantalio. Estos se 
usan en circuitos de baja frecuencia. 

Para capacidades inferiores pode- 
mos encontrar los de poliester, los ce- 
ramicos, policarbonatos y los de mica. 
Estos normalmente se usan en circui- 
tos de alta frecuencia. 

Al igual que las resistencias, los 
condensadores tambien se dividen en 
fijos y en ajustables. Los primeros po- 
seen una capacidad fija y los segundos 
es posible ajustar su capacidad dentro 
de unos limites. A estos condensado- 
res normalmente se les llama trimmers 
y poseen capacidades muy bajas, del 
orden de pocos centenares de picofa- 
radios. 

Se emplean normalmente en circui- 
tos osciladores o en circuitos resonan- 
tes donde es necesario realizar algun 
ajuste. 

El valor de los condensadores de 
pequeiia capacidad viene indicado en 
el cuerpo de los mismos mediante 
unas franjas de colores de acuerdo con 
la tabla 6. 
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Aplicaciones 



VIDEO 
COMPUTER 



FICHERO DE VIDEO 



FUNCIONAMIENTO 



DEL PROGRAMA 



MENU 



SIETEOPCIONES 



Estamos seguros de que muchos de 
vosotros compartis la aficion del orde- 
nador con el video; pues bien, este pro- 
grama va dirigido a llevar de la mano 
aitibos hobbies. 

El programa en cuestion os sacara 
en muchas ocasiones de apuros que se- 
ri'an de dificil solucion si no poseeis 
VIDEO COMPUTER. /.Cuantas ve- 
ces OS habreis preguntado cuantas pe- 
li'culas habeis visto y el dinero que os 
ha supuesto? Pues bien, el listado que 
en esta ocasion os invitamos a «te- 
ciear» pondra fin a vuestras dudas, ya 
que de una manera rapida y sencilla 
podreis acceder a una extensa gama de 
opciones, en relacion al tema que hoy 
nos ocupa. 

Este programa, tai como os lo ofre- 
cemos, funciona linicamente en disco, 
pero si alguno de vosotros solo dis- 
pone de cassette, no le sera dificil 
adaptarlo, ya que esta estructurado 
por medio de rutinas y subrutinas que 
hacen que las modificaciones no scan 
complicadas. 

FUNCIONAMIENTO DEL 
PROGRAMA 

Las peliculas que introduzcamos se- 
ran grabadas en el disco a traves de un 
fichero directo, que aparecera en 
nuestro directorio con el nombre de 
VIDEO CBM, esta operacion se rea- 
liza de las lineas 59990-60014. Las li- 
neas 50000-50009 se encargan de la 
iectura de los datos. Las variables en- 
cargadas de acumularlos son: N, V, F, 
P. C. todas ellas alfanumericas y di- 
mensionadas hasta 1000. 

Al ejecutar el programa el primer 
mensaje que nos aparecera en pantalla 
sera, «ORDENANDO...». elcualnos 
indica que el ordenador esta, por me- 
dio de DATAS (lineas 78-99 excepto 
la 81 que analizaremos mas adelante), 
introduciendo en su memoria una ru- 



tina en codigo maquina que nos or- 
denara alfabeticamente todos los da- 
tos, ganando asi gran cantidad de 
tiempo. 

El siguiente mensaje sera «CAR- 
GANDO...», que nos avisa queen ese 
momento se estan cargando los datos 
que anteriormente han sido grabados, 
en caso de que el fichero no haya sido 
creado, puesto que sera la primera vez 
que hagamos funcionar el programa, 
el LED encargado de dar error en la 
unidad de disco parpadeara pero el 
programar^unaonara_correctamente . 
La finea que realiza esta operacion es 
la anteriormente nombrada, 81. 



EL MENU PASO A PASO 

Siete son las opciones de que dis- 
ponemos, y a las que se accede pul- 
sando la letra que esta a su izquierda. 
Pulsando la letra A accederemos a la 
introduccidn de los datos (lineas 410- 
620), que se realiza por medio de 
INPUT. Una vez introducidos todos 
los datos que nos pida el ordenador 
grabara la ficha en el disco. 

Otra opcion del menu es biisqueda 
por meses, que como su nombre in- 
dica, nos dira las peliculas que hemos 
visto en un mes determinado. Para se- 
leccionar el mes a consultar dispones 
de las teclas Fl y F3, lineas 630-1090. 

La opcion C nos permite saber las 
peliculas que hemos alquilado en un 
determinado video-club, pudiendo 
cambiar nosotros el nombre de los vi- 
deo-clubs, ya que en principio no so- 
mos todos socios de los mismos (lineas 
490-530 y 1790-1830). Para no teclear, 
siempre que introduzcamos peliculas, 
el nombre del video, basta con pulsar 
el mimero del mismo. 

La siguiente opcion, btisqueda por 
calidad, nos da un menu en el cual po- 
demos soHcitar un listado de las peli- 
culas, que a nuestro juicio sean malas, 
pasables, buenas, muy buenas y ex- 



celentes, todas ellas representadas con 
un numero de asteriscos equivalente a 
la calidad deseada; su funcionamiento 
es igual al de la anterior opcion bas- 
tando pulsar el numero deseado. 

La biisqueda alfabetica nos ofrece 
una relacion de las peliculas que ha- 
yamos introducido, y que, al contrario 
que la opcion F, nos la muestra alfa- 
beticamente. 

Por ultimo tenemos la opcion G, fin 
de proceso, que, como su nombre in- 
dica, finaliza todas las operaciones, 
dandonos acceso a borrar todas las pe- 
liculas del fichero, partiendo asi de 
cero. 



POKE 53281, 15:P0KE 
53280,15 

1 CLR:DIM N$(1000), 
F$(1000),V$(1000), 
P$(1000),C$(1000), 
W$(1000) 

77 l = 838:PRmT "[SHIFT -hCLR/ 
HOME][ 10*CRSR ABAJO][ 
11*CRSR DCHA.][CTRL+7] 
ORDENANDO..." 

78 READ A:IFA=256 THEN 
80 

79 POKE I, 

A:I = I + 1:S = S + A:G0T0 

78 

80 READ SU:IF SoSU 
THENPRINT "ERROR EN 
DATAS": END 

81 PRINT "[SHIFT+CLR/HOME][ 
10*CRSR ABAJO][ 11*CRSR 
DCHA.][CTRL+7] 
CARGANDO. ..":GOSUB 
50000:GOTO 100 

82 DATA 32,253,174,32,139, 
176,133,106 

83 DATA 132,107,160,0,177, 
106,240,122 

84 DATA 133,110,200,177, 



INPUT 9 



Aplicaciones 



106,153,110,0 

85 DATA 192,2,208,246,165, 
106,133,108 

86 DATA 165,107,133,109,24, 
165,108,105 

87 DATA 3,133,108,144,2, 
230,109,160 

88 DATA 0,177,108,240,71, 
133,252,197 

89 DATA 110,144,2,165,110, 
133,255,200 

90 DATA 177,108,153,252,0, 
192,2,208 

91 DATA 246,160,0,177,111, 
209,253,240 

92 DATA 4,144,209,176,9, 
200,196,255 

93 DATA 208,241,196,110, 
176,198,160,0 

94 DATA 177,106,170,177, 
108,145,106,153 

95 DATA 110,0,138,145,108, 
200,192,3 

96 DATA 208,238,160,0,177, 
106,133,255 

97 DATA 169,0,240,168,24, 
165,106,105 

98 DATA 3,133,106,144,2, 
230,107,24 

99 DATA 144,128,96,256, 
18719 

100 PRINT "[SHIFT+CLR/ 

HOME]":AZ = 0:CS = 0:CX = 

101 PRINT "[ 11 
ESPACIOS][SHIFT+U] 
[SHIFT+I][SHIFT+U] 
[SHIFT+I] [SHIFT+U][ 
2*SHIFT+C][SHIFT+I] 
[SHIFT+U][ 
2*SHIFT+C][SHIFT+I] 
[SHIFT+U][SHIFT+I] 
[SHIFT+U][SHIFT+I][NULL] 
[SHIFT+Ri[ll][SHiFT+F] 
[NULL][C0MM + 6]" 
PEEKMiD$GOPEEK 
PEEKLENGO 
PEEKRIGHT$PEEK 
PEEKPEEKPEEKPEEK 

103 PRINT "[ 11 ESPACIOS] 
[SHIFT+B][SHIFT+U] 
[SHIFT+I][SHIFT+B] 
[SHIFT+B][COMM + Q] 



[SHIFT+C][ 2 ESPACIOS][ 

4*SHIFT+B] [4*SHIFT+B] 

[NULL][CTRL+3][12] 

[SHIFT+H][NULL] 

[COMM + 6]" 

PEEKPEEKPEEKPEEK 

PEEKMID$LENRIGHT$ 

PEEKPEEKPEEKPEEK 

PEEKMID$GOPEEK 

105 PRINT "[ 11 ESPACIOS] 
[SHIFT+J][SHIFT+K] 
[SHIFT+J][SHIFT+K] 
[SHIFT+J][ 

2*SHIFT + C][SHIFT+K] 
[SHIFT+J][SHIFT+K] 
[SHIFT+J][SHIFT+K] 
[SHIFT+J][ 

2*SHIFT+C][SHIFT+K] 
[NULL]G[12][SHIFT+J] 
[NULL][C0MM + 6][NULL] 
[SHIFT+R][12][SHIFT+N] 
[NULL][C0MM + 6]" LENLEN 
LENLENLENLENLENLEN 
LENLENLENLENLENLEN 
LENLENLENLENLENLEN 
LENLENLENLENLENLEN 
LENLENRIGHT$ 

120 PRINT "[ 6 

ESPACIOS][SHIFT+B]<A>. 
INTRODUCCION DE DATOS[ 
2 ESPACI0S][SH1FT + B] 
[NULL][SHIFT+H][12][F8] 
[NULL][C0MM + 6]" 
PEEK<B>. BUSQUEDA POR 
MESES PEEK 

160 PRINT "[ 6 

ESPACIOS][SHIFT+B]<C>. 
BUSQUEDA POR VIDEO 
CLUB[SHIFT + B][NULL] 
[CTRL+6][CR][C0MM + N] 
[NULL][C0MM + 6]" 
PEEK<D>. BUSQUEDA POR 
CALIDAD PEEK 

180 PRINT "[ 6 

ESPACIOS][SHIFT+B]<E>. 
BUSQUEDA ALFABETICA[ 4 
ESPACIOS][SHIFT+B] 
[NULL][SHIFT+T][CR] 
[COMM+V][NULL] 
[COMM + 6]" PEEK<F>. 
BUSQUEDA NORMAL 
INTRO. PEEK 



210 PRINT "[ 6 

ESPACIOS][SHIFT+B]<G> 

FIN DE PROCESO[ 9 

ESPACIOS][SHIFT+B] 

[NULL][SHIFT+J][CR] 

[COMM+ -][NULL] 

[COMM + 6]" MID$LEN 

LENLENLENLENLENLEN 

LENLENLENLENLENLEN 

LENLENLENLENLENLEN 

LENLENLENLENLENLEN 

LENLENLENGO 

230 PRINT 

254 PRINT "[ 9 

ESPACIOS]PULSE EL 
CODIGO DESEADO[ 
2*NULL][MIN./MAY.], 
[1][C0MM + K] 
A$[NULL][CRSR 
DCHA.][MIN./MAY.]6[1][F6] 
A$[COMM + R]"A"[COMM + M] 
N[C0MM + R]N[C0MM + N]1:0 
[C0MM + R]N:[F2] 
410[NULL]>[MIN./ 
MAY.]@[1][F6] 




-r*v 



10 INPUT 



licaciones 



A$[COMM + R]"B"[COMM + M] 




MAY.][CTRL+1][1][F2] 


[C0MM + 6]"L0AD 




300[NULL][SHIFT+ 


":X[COMM + R]53280:[F2] 




+ ][MIN./ 


630[NULL]S[MIN./ 




MAY.][C0MM + 7][1][][ 11 


MAY.]T[1][F6] 




ESPACIOS] = 


A$[COMM + R]"C"[COMM + M] 


670 


PRINT 


[F2] 


680 


PRINT "[ 13 


1550[NULL][SHIFT+H][MIN./ 




ESPACIOS][SHIFT+U][ 


MAY.]t[l][F6] 




12*SHIFT+C][SHIFT+I] 


A$[COMM + R]"D"[COMM + M] 




[NULL][F4][CTRL+9] 


[F2] 2070[NULL][F1][MIN./ 




[C0MM + R][2][C0M,M + 6]" 


MAY.][SHIFT+H][1][F6] 




PEEK ENERO 


A$[COMM + R]"E"[COMM + M] 




PEEK 


MI[C0MM + R]1:W[C0MM 


700 


PRINT "[ 13 


+ R]0:[F2] 




ESPACIOS][SHIFT+B] 


2580[NULL][CRSR 




FEBRER0[4 ESPACIOS] 


IZQDA.][MIN./ 




[SH!FT+B][NULL] 


MAY.][SHIFT+R][1][F6] 




[SHIFT+N][CTRL+9] 


A$[COMM + R]"F"[COMM + M] 




[SHIFT+F][2][C0MM + 6]" 


W[COMM + R]0:[F2] 




PEEK MARZO 


2580[NULL][COMM + R][MIN./ 




PEEK 


MAY.][F3][1][F6] 


720 


PRINT "[ 13 


A$[COMM + R]"G"[COMM + M] 




ESPACIOS][SHIFT+B] 


[F2] 




ABRIL[ 6 ESPACIOS] 


4000[NULL][COMM + C][MIN./ 




[SHIFT+B][NULL][CTRL + 9] 




%!^^§V'"'"'^V.-, 



[CLR/H0ME][SHIFT+Z][2] 
[COMM + 6]" PEEK 

MAYO PEEK 

740 PRINT "[ 13 

ESPACIOS][SHIFT+B] 
JUNIO[ 6 ESPACIOS] 
[SHIFT+B][NULL]V[CLR/ 
H0ME][C0MM + S][2] 
[COMM + 6]" PEEK 

JULIO PEEK 

760 PRINT "[ 13 

ESPACIOS][SHIFT+B] 
AGOSTO[ 5 ESPACIOS] 
[SHIFT+B][NULL] 
[COMM + 7][CLR/HOME][2] 
[3][C0MM + 6]" 
PEEK SEPTIEMBRE PEEK 

780 PRINT "[ 13 

ESPACIOS][SHIFT+B] 
OCTUBRE[ 4 ESPACIOS] 
[SHIFT+B][NULL][SHIFT+ 
t][CLR/ 

H0ME][22][3][C0MM + 6]" 
PEEK NOVIEMBRE 
PEEK 

800 PRINT "[ 13 

ESPACIOS][SHIFT+B] 

DICIEMBRE[ 2 ESPACIOS] 

[SHIFT+B][NULL]"*PRINT 

"[ 13 ESPACIOS][SHIFT+J][ 

12*SHIFT+C][SHIFT+K] 

[NULL]U[INST/DEL]4[3] 

[COMM + 6]:[COMM + 6]" 

USE Fl Y F3PARA ELEGIR 

EL MES": 

J[COMM + R]'l[NULL] 

[SHIFT+D][INST/ 

DEL]>[3]T[C0MM + R] 

1319:H[C0MM + R]T[NULL] 

[C0MM. + 1][INST/DEL]H[3] 

[COMM+4] H,[SHIFT+B] 

(H)[C0MM + N]128: 

H[C0MM + R]H[C0MM + N]1: 

M[C0MM + R]M[C0MM + N]1 

[NULL][C0MM + 2][INST/ 

DEL]R[3][F6] [SHIFT+B] 

(H) 

[C0MM + R]32 [COMM + M] 

[F2]870[NULL][CTRL+4] 

[INST/DEL]£[3][F2] 840 

[NULL][COMM+£][INST/ 

DEL][SHIFT+F][3] 



INPUT 11 




1580 



1590 
1610 
1520 



1650 



1670 



1690 



1710 



[COMM + K] A$[NULL] 

[SHIFT+Q][INST/DEL] 

[SHIFT+Z][3] 

[F6]A$[C0MM + R]"INPUT 

"[COMM + M]T[COMM + R]T 

[COMM + Q140: 

Y[COMM + R]40:J[COMM + R] 

J[C0MM + Q]1: 

[SHIFT+CR] 950:[F2]900 

[NULL][SHIFT+@][INST/ 

DEL][SHIFT+ +][3][F6]A$ 

[COMM + R]"DIM 

"[COMM + MIT 
PRINT "[SHIFT+CLR/ 
H0ME][CTRL+7]":P0KE 
53280, 15:P0KE 53281, 
15 

PRINT :PRINT 
PRINT :PRINT 
PRINT "[ 14 
ESPACIOS][SHIFT+U][ 
13*SHIFT+C][SHIFT+I] 
[NULL][C0MM + C][23] 
[SHIFT+H][6][C0MM + 6]" 

PEEK 
PEEK 

PRINT "[ 14 
ESPACIOS][SHIFT+B] 
<1>. l.VIDEO[SHIFT+B] 
[NULL]D[24][C0MM + 
-][6][C0MM + 6]" 
PEEK PEEK 

PRINT "[ 14 
ESPACIOS][SHIFT+B] 
<2>. 2.VIDE0[SHIFT+B] 
[NULL][F8][24][CTRL+1] 
[6][C0MM + 6]" 
PEEK PEEK 

PRINT "[ 14 
ESPACIOS][SHIFT+B] 
<3>. 3.VIDE0[SHIFT+B] 
[NULL][SHIFT+T][24] 
[C0MM + @][6][C0MM + 6]" 

PEEK 
PEEK 

PRINT "[ 14 
ESPACIOS][SHIFT+B] 
<4>. 4.VIDE0[SHIFT+B] 
[NULL][CTRL+3][25] 
[C0MM + U][6][C0MM + 6]" 

PEEK 
PEEK 



1730 PRINT "[ 14 


1960 


PRINT "[ 2*CRSR ABAjujl 


ESPACIOS][SHIFT+B] 




9*CRSR 


<5>. 5.VIDE0[SHIFT+B] 




DCHA.][CTRL+3]"F$(T) 


[NULL][SHIFT+D][25] 


1970 


PRINT "[ 2*CRSR ABAJO][ 


[SHIFT+L][6][C0MM + 6]" 




9*CRSR 


PEEK 




DCHA.][CTRL+3]"V$(T) 


PEEK 


1980 


PRINT "[ 2*CRSR ABAJO][ 


1750 PRINT "[ 14 




9*CRSR 


ESPACIOS][SHIFT+J][ 




DCHA.][CTRL+3]"P$(T) 


13*SHIFT+C][SHIFT+K] 


1990 


PRINT "[ 2*CRSR ABAJO][ 


[NULL][MAY./GRAF.][25] 




9*CRSR 


[SHIFT+ESPACI0][6] 




DCHA.][CTRL+3]"C$(T) 


[C0MM + 6][NULL] 


2000 GETA$:IF A$ = "" 


[COMM + F][25][COMM + N] 




THEN2000 


[6][C0MM + 6]" PULSE 


2010 


PRINT "[SHIFT+CLR/ 


LATECLA DEL VIDEO 




HOME]" 


DESEADO 


2020 


NEXT 


1780 GETJ$ 


2030 


IFAZ=1 THEN GOTO 100 


1790 IFJ$ = "1" 


2040 


PRINT "[SHIFT+CLR/ 


THENJ$ = "1.VIDE0":G0T0 




H0ME][4*CRSR 


1850 




ABAJOJDE ESTE VIDEO 


1800 IFJ$ = "2" 




CLUB NO HASCOGIDO 


THENJ$ = "2.VIDE0":G0T0 




NINGUNA" 


1850 


2050 GET A$:IF A$ = "" 


1810 IFJ$ = "3" 




THEN2050 


THENJ$ = "3.VIDE0":G0T0 


2060 


GOTO 100 


1850 


2070 


REM = = = = = = = = = = = = 


1820 IFJ$ = "4" 


2080 


REM = BUSQUEDA.CA. = 


THENJ$ = "4.VIDE0":G0T0 


2090 


REM = = = = = = = = = = = = 


1850 


2100 


PRINT "[SHIFT+CLR/ 


1830 IFJ$ = "5" 




H0ME][CTRL+7]":P0KE 


THENJ$ = "5.VIDE0":G0T0 




53281, 15:P0KE 53280, 


1850 




15 


1840 GOTO 1780 


2110 


PRINT :PRINT 


1850 PRINT "[CLR/HOME]"J$ 


2100 


PRINT "[SHIFT+CLR/ 


1860 F0RT=1 TO 19:PRINT 




H0ME][CTRL+7]":P0KE 


:NEXT 




53281, 15:P0KE 53280, 


1870 PRINT "[ 12 




15 


ESPACIOSICORRECTO (S/ 


2110 


PRINT :PRINT 


N)[ 13 ESPACIOS]" 


2120 


PRINT "[ 11 


1880 GETA$ 




ESPACIOSIBUSQUEDA 


1890 IF A$ = "S" THEN 1920 




POR CALIDAD[NULL] 


1900 IF A$ = "N" THEN1550 




[C0MM + @][CTRL + 3]R 


1910 GOTO 1880 




[DIS.SHIFT-C = ] 


1920 FOR T=l TO N:0=T 




[C0MM + 6]:[C0MM + 6] 


1930 IF J$=V$(T) THENGOSUB 




[NULL][DIS.SHIFT-C=] 


10000:GOTO 1950 




[CRSR 


1940 GOTO 2020 




DCHA.]£[DIS.SHIFT-C = ] 


1950 PRINT "[ 2*CRSR ABAJO][ 




[COMM + 6]" LENLENLEN 


9*CRSR 




LENLENLENLENLENLEN 


DCHA.][CTRL+3]"N${T) 




LENLENLENLENLEN 


:AZ=1 




RIGHTS 



12 INPUT 



m 




iones 



2150 PRINT "[ 13 

ESPACIOS][SHIFT+B][ 14 

ESPACIOS][SHIFT+B] 

[NULL]P[CRSR DCHA.] 

[SHIFT+P] 

[DIS.SHIFT-C = ] 

[COMM + 6]" 
PEEK<1>. MALA 
PEEK 
2170 PRINT "[ 13 

ESPACIOS][SHIFT+B][ 14 

ESPACIOS][SHIFT+B] 

[NULL][C0MM + 5][CRSR 

DCHA.][DIS.SHIFT-C=] 

[COMM + 5]" 

PEEK<2>. PASABLE 

PEEK 
2190 PRINT "[ 13 

ESPACIOS][SHIFT+B][ 14 

ESPACIOS][SHIFT+B] 

[NULL] 

[SHIFT+ESPACIO][CRSR 

DCHA.][C0MM + 5][DIS. 

SHIFT-C = ][C0MM + 6]" 
PEEK<3>. BUENA 

PEEK 
2210 PRINT "[ 13 

ESPACIOS][SHIFT+B][ 14 

ESPACIOS][SHIFT+B] 

[NULL]([CTRL+6] 

[COMM + D] 

[DIS.SHIFT-C = ] 

[COMM + 6]" 

PEEK<4>. MUY 

BUENAPEEK 
2230 PRINT "[ 13 

ESPACIOS][SHIFT+B][ 14 

ESPACIOS][SHIFT+B] 

[NULL][SHIFT+P] 

[CTRL+6][SHIFT+*] 

[DIS.SHIFT-C = ] ■ 

[COMM + 5]" 

PEEK<5>. 

EXCELENTEPEEK 
2250 PRINT "[ 13 

ESPACIOS][SHIFT+B][ 14 

ESPACIOS][SHIFT+B] 

[NULL][COMM + U] 

[CTRL + 6][SHIFT+T] 

[DIS.SHIFT-C = ] 

[COMM + 6]" MID$LEN 

LENLENLENLENLENLEN 



LENLENLENLENLENLEN 

LENGO 2620 

2270 PRINT :PRINT "[CTRL + 3][ 

2 ESPACIOS]PULSE EL 

CODIGO DE LA OPCION 

DESEADA[NULL] 

[C0MM + E][CTRL+6] 2630 

[COMM+£] 2640 

[DIS.SHIFT-C = ] 

[COMM + K] A$[NULL][22] 2650 

[CTRL+7][C0MM + R] 

[DIS.SHIFT-C = ] 

[F6] A$[C0MM + R]"1" 2660 

[COMM + M]J$[COMM + R] 2666 

"*":VA$[COMM + R] 3000 

"MALA":[F2]2350[NULL]? 3010 

[CTRL+7][C0MM + C] 

[DIS.SHIFT-C = ] 3020 

[F6] A$[C0MM + R]"2" 

[COMM + M]J$[COMM + R] 

"**":VA$[COMM + R] 3030 

"PASABLE":[F2]2350 3040 

[NULL][SHIFT+G] 3041 

[CTRL+7][6] 

[ENA.SHIFT-C = ] 

[F6] A$[C0MM + R]"3" 

[COMM + M]J$[COMM + R] 3042 

"***":VA$[COMM + R] 

"BUENA":[F2]2350[NULL] 3043 

[SHIFT+INST/DEL] 

[CTRL+7][16] 3044 

[ENA.SHIFT-C = ] 

[F6] A$[C0MM + R]"4" 3050 

[C0MM + M]J$[C0MM + R] 3051 

"****":VA$[C0MM + R] 

"MUY BUENA":[F2]2350 

[NULL][SHIFT+B] 

[CTRL+7][26] 

[ENA.SHIFT-C = ] 

[F6] A$[C0MM + R]"5" 

[COMM + M]J$[COMM + R] 
■ "*****":VA$[COMM + R] 

"EXCELENTE":[F2]2350 

[NULL][SHIFT+M] 

[CTRL+7]$ 

[ENA.SHIFT-C = ] 

[F2] 2280[NULL] 
2602 IF Ml = l THENMI=0:SYS 

838,W$(1) 
2610 PRINT "[SHIFT+CLR/ 

H0ME][C0MM + 4]":P0KE 

53281, 15:P0KE 53280, 



15 

PRINT :PRINTCX"[ 10 

ESPACIOS]BUSQUEDA 

ALFABETICA[CTRL + 7]" 

:PRINT .-PRINT :PRINT 

iPRlNT 

FOR T=l TO N 

PRINT 

CS"."W$(T).-CS = CS+1 

IFCS=10THEN 

CS = 0:CX=CX+1:GOSUB 

3000 

N EXT T 

GOSUB 3000:GOTO 100 

PRINT "[CLR/HOME]" 

FOR A=l TO 20:PRINT 

:NEXT 

PRINT "[CTRL+3]PULSE 

EL NUMERO DESEADO 

F7 PASA PAGINA" 

GET A$ 

IF A$ = "" THEN3030 

IF A$ = "[F7]" THENPRINT 

"[SHIFT+CLR/ ■ 

H0ME][C0MM + 4]": 

TA=TA+10:GOTO 3070 

IFASC{A$)<48 OR 

ASC(A$)>57 THEN3030 

PRINT "[ 2*CRSR 

ARRIBA][ 40 ESPACIOS]"; 

PRINT "[39*CRSR 

IZQDA.]"; 

PRINT W$(TA+VAL(A$) + 1) 

PRINT "[ 11 

ESPACIOS]CORRECTO (S/ 

N)[NULL][27]$[C0MM + D] 

[11][C0MM + K]X$[NULL] 

[SHIFT+*]$[C0MM + 7] 

[11][F6]X$[C0MM + R]"N" 

[COMM + M] [C0MM + 6]"0N 

":W[COMM + R]0: 
CS[COMM + R]10:[F2]2650 
[NULL][F4]$[C0MM + S] 
[11][F6]X$[C0MM + R]"S" 
[COMM + M]0[COMM + R]TA 
[COMM + N][SHIFT+E](A$) 
[C0MM + N]1:[SHIFT+CR] 
10000:T[COMM + R]O:[F2] 
3071[NULL][SHIFT+INST/ 
DEL]$[C0MM + H][11][F2] 
3052[NULL][SHIFT+G]$ 



INI>UT 13 



Aplieaciones 



[C0MM+V][ll][C0MM + 6]: 
[C0MM + 61CX" 
BUSQUEDA 

ALFABETICA":[C0MM + 6]: 
[C0MM + 6]:[C0MM + 6]: 
[C0I\/1M + 6]:[MAY./GRAF.] 
[NULL][SHIFT+Z]$ 
[SHIFT+ t][ll]W 
[C0MM + R]W[C0MM + N]1: 
[F6]W[C0MM + E]N 
[COMM + M]100[NULL] 
[C0MM + L]$[NULL][12] 
[F6] W${0)[COMM + R] 
N$(W)[COMM + M]T 
[COMM + R]W:[F2]3080 
[NULL][1]%[1][12] 
[F2] 307HNULL] 
[CTRL+7]% 
[DIS.SHIFT-C=][12] 
[COMM+6]" 
10030 PRINT "[SHIFT+B] 
TITULO.[SHIFT+B] 
[NULL][C0MM + B]'8' 
[C0MM + 6]"M1D$LEN 
LENLENLENLENLENLEN 
>LENLENLENLENLEN 
LENLENLENLENLENLEN 
LENLENLENLENLENLEN 
LENLENLENLENLENLEN 
LENLENLENLENLENLEN 
GO 
10050 PRINT "[SHIFT+U][ 

7*SHIFT+C][C0MM + R][ 
29*SHIFT+C][SHIFT+I] 
[NULL][COMM+X]'X' 
, [C0MM + 6]"PEEKFECHA 
.PEEK 
10070 PRINT "[SHIFT+J][ 

7*SHIFT+C][C0MM + E][ 
29*SHIFT+C][SHIFT+K] 
[NULLIY 

([SHIFT+*]'[C0MM + 6]" 
LENLENLENLENLENLEN 
LEN = LENLENLENLEN 
LENLENLENLENLENLEN 
LENLENLENLENLENLEN 
LENLENLENLENLENLEN 
LENLENLENLENLENLEN 
LENRIGHT$ 
10090 PRINT "[SHIFT+BIVIDEO 
.[SHIFT+B][NULL] 
[COMM + 4] 



([SHIFT+TJTCOMM + 6] 

"MID$LENLENLENLEN 

LENLENLEN>LENLEN 

LENLENLENLENLENLEN 

LENLENLENLENLENLEN 

LENLENLENLENLENLEN 

LENLENLENLENLENLEN 

LENLENLENGO 

10110 PRINT "[SHIFT+U][ 

7*SHIFT+C][C0MM + R] [ 
29*SHIFT+C][SHIFT+I] 
[NULL][SHIFT+U] 
([F7]'[C0MM + 6]" 
PEEKPRECIO.PEEK 

10130 PRINT "[SHIFT+J][ 

7*SHIFT + C][C0MM + E][ 

29*SHIFT+C][SHIFT+K] 

[NULLID 

[CTRL+5JTCOMM + 6]" 

LENLENLENLENLENLEN 

LEN = LENLENLENLEN 

LENLENLENLENLENLEN 

LENLENLENLENLENLEN 

LENLENLENLENLENLEN 

LENLENLENLENLENLEN 

LENRIGHT$ 

10150 PRINT "[SHIFT+B] 
CALIDADLSHIFT+B] 
[NULL][SHIFT+0]) 
[C0MM+A]'[C0MM + 6] 
"MID$LENLENLENLEN 
LENLENLEN>LENLEN 
LENLENLENLENLENLEN 
LENLENLENLENLENLEN 
LENLENLENLENLENLEN 
LENLENLENLENLENLEN 
LENLENLENGO 

10170 PRINT 

10180 PRINT "VIDEO CLUB'S[ 
10 ESPACIOSJCALIDAD 
[NULL][COMM + B]) 
[SHIFT+N]'[C0MM + 6]" 



10200 PRINT " <1>. l.VIDEO[ 
10 ESPACIOS]* 
MALA[NULL][11]*[C0MM 
+ l]TC0MM + 6]" <2>. 
2. VIDEO** PASABLE 

10220 PRINT " <3>. 3.VIDE0[ 
10 ESPACIOS]*** 
BUENA[NULL]^*[COMM 



+ L1TC0MM+6]" <4>. 
4.VIDE0**** MUY BUENA 
10240 PRINT " <5>. 5.VIDE0[ 
10 ESPACIOS]***** 
EXCELENTE[NULL] 
[COMM + 5]*[10] 
([C0MM + 6]"";:[MAY./ 
GRAF.][NULL][COMM+Y] 
*F[SHIFT+C][] 
[ 11 ESPACIOS] 





[NULL][SHIFT+V]*G 




[SHIFT+C][] 




[ 11 ESPACIOS] = 




LECTURA DAT. = [NULL] 




[COMM+J]*H[SHIFT+C][] 




[ 11 ESPACIOS] 




[NULL][MIN./MAY.] + P 




[SHIFT+C][CTRL+4] 1,8, 




0, "VIDEO CBM."[NULL] 




[23] + a[SHIFT+C][]l,N 




[NULL]" + RLENFOR T=l 




TO N 


50003 


INPUT*1,N$(T) 


50004 


INPUT+1,F$(T) 


50005 


INPUT#1,V$(T) 


50006 


INPUT#1,P$(T) 


50007 


INPUT+1,C$(T) 


50008 


NEXT 


50009 


CLOSE 1:RETURN 


59990 


REM =========== 


59991 


REM = GRABAR. DA = 


59992 


REM =========== 


60000 


OPEN 15,8,15 


60001 


PRINT+15,"S:VIDE0 




CBM." 


60003 


PRINT "[CLR/ 




HOMEIESPERE UN 




MOMENTO POR FAVOR[ 6 




ESPACIOS]" 


60004 


CLOSE 15 


60005 


OPEN 1,8,1, "VIDEO CBM." 


60006 


PRINT#1,N 


60007 


FOR T=l TO N 


60008 


PRINT*1,N$(T) 


60009 


PRINT#1,F$(T) 


60010 


PRINT#1,V$(T) 


60011 


PRINT#1,P$(T) 


60012 


PRINT#1,C$(T) 


60013 


NEXT 


60014 


CLOSE 1:RETURN 
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AGILIDAD 
DE CALCULO 



UN JUEGO DE REFLEJOS 



RECUPERANDO AGILIDAD 



EN EL CALCULO 



DESCRIPCION 



LISTADO DEL PROGRAMA 



Este juego de reflejos esta pensado es- 
pecialmente para obtener esta agilidad 
de caiculo que muchos de nosotros he- 
mos perdido con el uso masivo de las itia- 
quinas calculadoras. 

Tambien puede ser de gran ayuda 
para que los pequenos de la casa apren- 
dan matematicas jugando. 

La presentacion del programa nos 
ofrece la posibilidad de ejercitarnos 
con las operaciones de sumar, restar, 
multiplicar y dividir, asi como la po- 
sibilidad de escoger dos velocidades, 
una lenta y la otra rapida. 

Todo ello se realiza con un joystick 
conectado en el PORT 2. 

DESCRIPCION 

Despues de una pausa de iniciali- 
zacion de los sprites y de las rutinas en 
codigo maquina, aparece la presenta- 
cion del programa, con las opciones a 
escoger. Simultaneamente apareceran 
unas notas musicales que nos acom- 
paiiaran en algunas fases del juego. La 
eleccion se realiza mediante el movi- 
miento de la palanca del joystick y 
esta queda confirmada al pulsar el bo- 
ton de disparo. 

Esto nos IJeva a una segunda pan- 
talla que nos explica brevemente lo 
que debemos realizar y que entramos 
en el primer nivel de juego. A medi- 
da que vayamos progresando en el 
mismo, iremos aumentando de nivel y 
por tanto la dificultad en resolver los 
calculos sera mayor. 

Automaticamente pasamos a la ac- 
cion. En la parte superior de la pan- 
talla nos aparece: a la izquierda, un in- 
dicador de las vidas de que dispone- 
mos: a la derecha. la puntuacion que 
iremos obteniendo a lo largo del 
juego. En la parte central nos aparece 
el problema matematico a resolver. 

La mision es descubrir cual es el nii- 
mero que esconde el interrogante que 



aparece en la formula. Este interro- 
gante puede aparecer en posiciones 
aleatorias. 

Por ejemplo, es posible observar 
5+7 = ?, o bien, 7+? = 12 o 
?-l-9 = 13. Esto combinalas operacio- 
nes de sumar y restar de forma alea- 
toria. De igual forma sucede con las 
operaciones de multiplicar y de dividir. 

Para dar la respuesta disponemos de 
una nave en la parte inferior de la pan- 
talla que solo puede moverse horizon- 
talmente sobre cinco posibilidades. 
Una vez colocada nuestra nave sobre 
la respuesta que creamos correcta, de- 
beremos intentar destruir una nave 
enemiga (OVNI) que se pasea encima 
de la nuestra, pulsando el boton de 
disparo. 

La nave enemiga se mueve por la 
pantalla de derecha a izquierda en tres 
niveles, empezando por la parte su- 
perior y acercandose en cada nivel a la 



nuestra. Si destruimos esta nave, nos 
aparecera un nuevo problema para re- 
solver y el OVNI vuelve al nivel su- 
perior. 

PUNTUACION Y BONIFICACIONES 

La existencia de estos tres niveles 
nos ofrece diferentes dificultades. En 
el nivel superior, deberemos tener los 
reflejos en forma y por tanto la pun- 
tuacion sera de 25 puntos; en los dos 
niveles restantes, donde la dificultad 
es decreciente, la puntuacion sera de 
10 y 5 puntos respectivamente. 

Si colocamos nuestra nave sobre 
una respuesta incorrecta y el disparo 
alcanza al OVNI, este no se destruye 
sino que cambia de color y prosigue su 
viaje. En este caso dispondremos de 
un nuevo disparo solo cuando el 
OVNI haya descendido un nivel. En el 
caso de que no lo hayamos destruido 




INPUT 15 



Aplicaciones 



en los tres niveles, no nos queda mas 
que esperar la destruccion total de 
nuestra nave, con su efecto sonoro co- 
rrespondiente. Esto nos reduce el nii- 
mero de vidas de que disponemos y si 
estas llegan a cero finaliza el juego 
dando opcion a volver a empezar uno 
nuevo. 

Para aumentar la dificultad de las 
preguntas es necesario acumular 50 
puntos. Esto se puede realizar tanto 
con dos aciertos de 25 puntos como de 
10 aciertos de 5 puntos o bien combi- 
naciones de ambos. 

Si el promedio de puntuacion en un 
nivel es de 25 puntos, recibiremos una 
bonificacion de 50 puntos. Si el pro- 
medio se encuentra entre 10 y 25 pun- 
tos, la bonificacion sera de 25 puntos. 
En el caso de que no lleguemos a los 
10 puntos, no tendremos ninguna bo- 
nificacion. 

EL PROGRAMA 

Despues de unos breves comenta- 
rios pasamos a la linea 100 donde va- 
mos a ejecutar la subrutina de leer los 
DATAS y de transportar el codigo 
maquina a partir de la direccion 
49152, ya conocida por todos noso- 
tros. Esta lectura lleva una compro- 
bacion de los DATAS dando un men- 
saje de error si nos hemos equivocado 
al teclear esta parte del programa. 

En la presentacion del programa (li- 
neas 120 a 180) se realizan dos subru- 
tinas interesantes; la primera de ellas 
la que empieza en la linea 860 y su mi- 
sion es la de hacer aparecer por la de- 
recha de la pantalla y en scroll un 
texto hasta dejarlo centrado en la li- 
nea donde aparece. La segunda subru- 
tina es la que empieza en la linea 890 
y es la encargada de las notas musi- 
cales de la presentacion. 

La lectura del joystick se realiza en 
las lineas 190 a 260. Aqui las variables 
H y G representan las coordenadas en 
pantalla donde aparecera el indicador 
de seleccion. 

En la linea 250 nos aparece un SYS 
49152. Esta rutina en lenguaje ma- 
quina es la que nos hace mover dicho 
indicador por la pantalla. 

Una vez hemos realizado la selec- 
cion del tipo de operaciones que de- 




seamos practicar, apretamos el pulsa- 
dor de fuego. Esto nos lleva a la linea 
270 donde se inicializan las variables 
del nivel de juego (L), de la puntua- 
cion (SC) y del numero de vidas (S). 

La presentacion de la segunda pan- 
talla corre a cargo de las lineas 280 a 
340. La presentacion del terreno de 
juego empieza a partir de la linea 350. 

La ecuacion matematica es repre- 
sentada por tres variables; los dos pri- 
meros terminos de la igualdad seran 
las variables A y B mientras que el re- 
sultado sera introducido en la variable 
C. El tipo de operacion es compro- 
bado en la linea 390. 

La decision de donde colocaremos 
el interrogante viene dada en las lineas 
410 a 450 y la presentacion de la ecua- 
cion en la pantalla se realiza en las li- 
neas 460 y 470. 

La creacion de los diferentes valores 
que nos aparecen como posibles res- 
puestas corre a cargo de las lineas 480 



a 510 y su presentacion en pantalla por 
las lineas 520 a 550. 

Ahora bien, la mayor parte del 
juego se traduce en una sola linea, la 
560, donde se va a ejecutar una rutina 
en lenguaje maquina situada en la di- 
reccion 49195. 

En la linea 570 miramos si hemos 
acertado la respuesta. En caso afir- 
mativo se ejecutan las lineas 600 a 660 
y en el otro caso las lineas 670 a 720 
donde se decrementa el numero de vi- 
das y se decide si se ha llegado al final 
del juego. El haber acertado correc- 
tamente la respuesta trae consigo el 
analisis de las bonificaciones, cosa que 
se realiza en las lineas 730 a 780. 

Por ultimo, las lineas 790 a 850 pre- 
sentan la pantalla de fin del juego. 



10 REM 

20 REM 

30 REM 

40 REM 
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PON A PRUEBATUS 
MATEMATICAS * 

********************* 



50 REM * 
60 REM * 

70 REM * 

80 REM 

90 REM 

100 GOSUB 1000 

110 V=54272:F0R 1 = TO 

24:P0KE V+l,0:NEXT 
120 POKE 53280, 0:POKE 

53281,0 
130 PRINT "[SHIFT+CLR/ 

H0ME][CTRL+7]":A$ = " 

REFLEJOS ":GOSUB 

860:GOSUB 890 
140 PRINT "[CRSR ABAJO][ 

3*CRSR DCHAJCOLOCAR 

EL JOYSTICK EN EL PORT 

2" 
150 PRINT "[ 7*CRSR ABAJO][ 

13*CRSR DCHA.][CTRL+9] 

ESCOGE : [CTRL+0]" 



160 PRINT "[ 2*CRSR ABAJO][ 

9*CRSR 

DCHA.][CTRL+4]SUMAR[ 9 

ESPACI0S][C0MM + 7] 

MULTIPLICAR" 
170 PRINT "[ 9*CRSR 

DCHA.][CTRL+4]RESTAR[ 8 

ESPACI0S][C0MM + 7] 

DIVIDIR" 
180 PRINT "[ 2*CRSR 

ABAJ0][CTRL+6]LENT0": 

PRINT "[ 2*CRSR 

ABAJ0][C0MM + 6]RAPID0 

[CTRL + 8]":H = 11:G=18: 

POKE 830,H:POKE 831, G 
190 X=PEEK(56320):J=X AND 

15:B=X AND 16 
200 IF B = 0THEN270 
210 IF J = ll THENH = 11 
220 IF J = 7THENH = 26 
230 IF J = 14THENG=18 
240 IF J = 13 THENG = 21 
250 POKE 828,H:P0KE 829, 

G:SYS 49152 
260 GOTO 190 
270 L=1:SC=0:S = 3 
280 POKE 53269, 0:PRINT 

"[SHIFT+CLR/HOME][ 

6*CRSR ABAJO][ 11*CRSR 

DCHA.][C0MM + 8]C0L0CA 

TU NAVE" 
285 PRINT "[ 2*CRSR ABAJ0][ 

4*CRSR DCHA.ISOBRE LA 

RESPUESTACORRECTA" 
290 BN = 0:BO=0:B = 0:SH = 
300 PRINT "[ 2*CRSR ABAJO][ 

14*CRSR DCHA.IY 

DISPARA" 
310 PRINT "[3*CRSR ABAJO][ 

5*CRSR 

DCHA.][CTRL+3]N0 

DERROCHES LOS TIROS" 
320 PRINT "[ 2*CRSR ABAJO][ 

12*CRSR 

DCHA.][CTRL+5]NIVEL ";L 
330 GOSUB 890 
340 FOR 1 = 1 TO 1500: NEXT 
350 PRINT "[SHIFT+CLR/ 

HOME][ 30 

ESPACI0S][CTRL+6] 

PUNT0S[CTRL+3]"SC"[CLR/ 

H0ME][CTRL+7]"; 



360 FOR 1 = 1 TO SiPRINT 

"[CRSR DCHA.][SHIFT+A]"; 

:NEXT 
370 A=INT 

(RND(0)*4+1) + 4*(L-1) 
380 B = INT(RND(0)*4*L+1) 
390 IFH = 11 

THENC=A+B:GOTO410 
400 C=A*B 
410 A$ = STR$(A):B$ = STR$(B): 

C$ = STR$(C) 
420 RP = INT (RND(0)*4) + 1 
430 IF RP=1 

THENANS=A:A$ = " ?" 
440 IF RP=2 

THENANS = B:B$ = " ?" 
450 IF RP>2 

THENANS = C:C$ = " ?" 
460 PRINT "[CLR/HOME][ 

4*CRSR ABAJO][ 15*CRSR 

DCHA.][CTRL+5]";:IF H = ll 

THENPRINTA$" +"B$" 

= "C$:GOTO 480 
470 PRINT A$" X"B$" ="C$ 
480 IFANS>90 

THENDEL=10:GOTO 510 
490 IFANS>20 

THENDEL=5:G0T0 510 
500 DEL=INT((ANS/10) + 1) 
510 DT=INT(RND(0)*5) + 1 , 
520 PRINT "[CLR/HOME][ 

21*CRSR ABAJ0][CTRL+8]" 
530 FOR 1 = 1 TO 

5:CH{I)=ANS + (I-DT)*DEL: 

PRINT TAB(I*5)CH(I);:NEXT 
540 FOR 1 = 1 TO 5:IF 

CH(l)=ANSTHENPOKE 

901,1-1 
550 NEXT 
560 SYS 49195 
570 X=PEEK(900):SH = SH + 1 
580 IFX=2THEN600 
590 IFX=1 THEN670 
600 W = PEEK(833):IF W=0 

THENB=25 
610 IFW=1 THENB = 10 
620 IFW = 2THENB = 5 
630 BN=BN+B 
640 SC = SC + B:PRINT "[CLR/ 

HOME][ 18*CRSR ABAJO][ 

17*CRSR 

DCHA.][CTRL+6]"B 
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650 IF BN> = 50 

THENL=L+1:G0T0 730 
660 GOTO 340 
670 S=S-1 
680 PRINT "[CLR/ 

H0ME][C0MM + 7][ 9*CRSR 

ABAJO]":A$ = "INTENTALO 

DE NUEVO":GOSUB 860 
690 PRINT "[ 3*CRSR 

ABAJO]":A$ = "SE QUE LO 

PUEDES 

CONSEGUIR":GOSUB 860 
700 PRINT "[ 2*CRSR 

ABAJO]":A$ = "LA 

RESPUESTA ES:":GOSUB 

860:PRINT "[CRSR ABAJO] 

CTRL+5]":A$ = STR${ANS): 

GOSUB 860 
710 GOSUB 890:IFS = 

THEN790 
720 GOTO 340 
730 B0=INT(BN/SH + .5) 
740 IF B0> = 25 

THENBO = 50:GOTO 770 
750 IF BO> = 10 

THENB0-25:G0T0 770 
760 GOTO 780 
770 PRINT "[CLR/HOME][ 

14*CRSR ABAJO][ 13*CRSR 
. DCHA.][CTRL+9] 

BONIFICACION 

[CTRL+0]"BO:SC = SC + BO 
780 FOR 1 = 1 TO 5000:NEXT 

:GOTO 280 
790 POKE 53269, 0:PRINT 

"[SHIFT+CLR/HOME][ 

3*CRSR ABAJO][ 13*CRSR 

DCHA.][CTRL+4]PUNT0S: 

[CTRL+5]";SC 
800 PRINT "[ 7*CRSR ABAJO][ 

13*CRSR 

DCHA.][CTRL+2]EL JUEGO" 
810 PRINT "[3*CRSR ABAJO][ 

12*CRSR DCHA.IHA 

TERMINADO" 
820 PRINT "[ 5*CRSR ABAJO][ 

2*CRSR 

DCHA.][CTRL+6]PULSA 

[CTRL+81UNA 

TECLA[CTRL+6] PARA 

EMPEZAR DE NUEVO" 
830 POKE 198,0 
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840 WAIT198,1 
850 GOTO 120 

860 X=LEN{A$):A$=A$ + "[ 24 
ESPACIOS]" 

FOR 1 = 1 T0X+19-mT{X/ 
2 + .5):POKE 211, 
39-l:PRINT MID${A$,1,I); 
:NEXT I 
RETURN 

V=54272:P0KE V+24, 
15:P0KE V+5,0:POKE V+5, 
240 

POKE V+1,25:P0KE V+4, 
33:F0R 1 = 1 TO 300:NEXT 
:POKE V+4,32 
POKE V+1,33:P0KE V+4, 
33:F0R 1 = 1 TO 900:NEXT 
:POKE V+4,32 
POKE V+l,25:POKE V+4, 
33:F0R 1 = 1 TO400:NEXT 
:POKE V+4,32 
POKE V+1,33:P0KE V+4, 
33:F0R 1 = 1 TO 100:NEXT 
:POKE V+4,32 
POKE V+1,29:P0KE V+4, 
33:F0R 1 = 1 TO 100:NEXT 
:POKE V+4,32 
POKE V+1,28:P0KE V+4, 
33:F0R 1 = 1 TO 100:NEXT 
iPOKE V+4,32 
POKE V+1,25:P0KE V+4, 
33:F0R 1 = 1 TO 700:NEXT 
:POKE V+4,32 
RETURN 
PRINT "[SHIFT+CLR/ 
HOME][ 10*CRSR ABAJO][ 
8*CRSR DCHA.IESPERA 
UN MOMENTO 
...":I=49152:CK = 
1010 READ A:IF A=256 

THEN1030 
1020 POKE I, 

A:CK = CK + A:I = I + 1:G0T0 
1010 
1030 IFCKO80619 

THENPRINT "ERROR EN 
LOS DATAS":STOP 
1040 RETURN 
49152 DATA 174,63,3,172,62, 

3,24,32 
49160 DATA 240,255,169,32, 
32,210,255,174 



870 



880 
890 



900 



910 



920 



930 



940 



950 



960 



970 
1000 



49168 DATA 61,3,172,60,3, 

24,32,240 
49176 DATA 255,169,209,32, 

210,255,173,61 
49184 DATA 3,141,63,3,173, 

60,3,141 
49192 DATA 62,3,96,32,110, 

194,169,2 
49200 DATA 141,64,3,169,0, 

141,65,3 
49208 DATA 169,1,141,66,3, 

169,100,141 
49216 DATA 67,3,169,250, ■ 

141,248,7,169 
49224 DATA 251,141,249,7, 

169,252,141,250 
49232 DATA 7,169,7,141,21, 

208,169,6 
49240 DATA 141,39,208,169, 

8,141,40,208 
49248 DATA 169,15,141,41, 

208,169,0,141 
49256 DATA 23,208,169,2, 

141,29,208,169 
49264 DATA 255,141,27,208, 

141,68,3,169 
49272 DATA 0,141,70,3,173, 

30,208,169 
49280 DATA0, 162,24, 157,0, 

212,202,224 
49288 DATA 255,208,248, 

169,15,141,24,212 
49296 DATA 173,61,3,201,21, 

208,8,169 
49304 DATA 15,141,77,3,76, 

164,192,169 
49312 DATA 22,141,77,3,32, 

229,192,32 
49320 DATA 56,193,32,162, 

193,32,234,193 
49328 DATA 32,222,193,173, 

68,3,208,236 
49336 DATA 169,17,141,5, 

212,169,241,141 
49344 DATA 6,212,169,129, 

141,4,212,169 
49352 DATA 4,141,1,212,169, 

64,141,76 
49360 DATA 3,32,222,193, 

206,76,3,208 
49368 DATA 248,169,0,170, 

157,0,212,232 




49376 


DATA 224,25,208,248, 
96,174,64,3 


49584 


DATA 169,1,141,70,3, 
173,64,3 


49792 


DATA 
24 


0,24,0,0,24,0,0, 


49384 


DATA 189,86,194,141, 
0,208,169,200 


49592 


DATA 74,74,141,71,3, 
169,17,141 


49800 


DATA 




0,0,24,0,0,24,0, 


49392 


DATA 141,1,208,173, 
67,3,141,2 


49600 


DATA 5,212,169,241, 
141,5,212,159 


49808 


DATA 




24,0,0,24,0,0,24, 


49400 


DATA 208,173,66,3,10, 
141,16,208 


49508 


DATA 129,141,4,212, 
159,10,141,76 


49816 


DATA 
50 


0,50,0,0,60,0,0, 


49408 


DATA 174,65,3,189, 


49615 


DATA 3,173,70,3,201, 


49824 


DATA 


0,0,50,0,1,255, 




106,194,141,3 




1,240,5 




128,15 


49416 


DATA 208,173,70,3, 


49624 


DATA 169,5,141,71,3, 


49832 


DATA 


255,240,127, 




201,1,240,14 




96.174,77 




255,254,127,0,254 


49424 


DATA 174,64,3,189,86, 
194,141,4 


49632 


DATA 3,160,0,136,208, 
253,202,208 


49840 


DATA 
96,0 


112,0,14,95,0,5, ■ 


49432 


DATA 208,169,200, 


49540 


DATA 250,96,173,30, 


49848 


DATA 


6,192,0,0,0,0,0,0 




141,5,208,173,76 




208,141,72,3 


49856 


DATA 


0,0,0,0,0,0,0,0 


49440 


DATA 3,240,20,206,76, 
3,173,76 


49648 


DATA 41,1,141,73,3, 
173,72,3 


49864 


DATA 
128,7 


0,0,255,0,1,255, 


49448 


DATA 3,10,10,141,1, 


49656 


DATA 41,2,74,141,74, 


49872 


DATA 


255,224,31,255, 




212,201,0 




3,173,72 




248,255,255,255 


49456 


DATA 208,5,169,128, 


49554 


DATA 3,41,4,74,74, 


49880 


DATA 


225,195,31,225, 




141,4,212,96 




141,75,3 




195,31,255,255 


49464 


DATA 173,57,3,208,3, 


49572 


DATA 173,73,3,45,74, 


49888 


DATA 


255,31,255,248, 




206,66,3 




3,201,1 




7,255,224,1 


49472 


DATA 206,67,3,173,66, 
3,24,109 


49580 


DATA 208,3,76,35,194, 
173,74,3 


49896 


DATA 
0,0,0 


255,128,0,255,0, 


49480 


DATA 67,3,201,0,208, 


49588 


DATA 45,75,3,201,1, 


49904 


DATA 


0,0,0,0,0,0,0,0 




23,238,65 




208,3,76 


49912 


DATA 


0,154,0,24,0,0, 


49488 


DATA 3,169,1,141,66, 


49695 


DATA 56,194,96,169, 




24,0 






3,169,80 




253,141,248,7 


49920 


DATA 


0,0,0,0,0,0,0,0 


49496 


DATA 141,67,3,169,0, 


49704 


DATA 169,1,141,21, 


49928 


DATA 


0,0,0,0,0,0,0,0 




141,70,3 




208,169,1,141 


49936 


DATA 


0,0,0,0,0,0,0,0 


49504 


DATA 169,8,141,40, 


49712 


DATA 132,3,159,0,141, 


49944 


DATA 


0,0,0,0,0,0,0,0 




208,173,0,220 




58,3,95 


49952 


DATA 


0,0,0,0,0,0,0,0 


49512 


DATA 141,59,3,41,8, 


49720 


DATA 173,133,3,205, 


49960 


DATA 


0,0,0,0,0,0,0,0 




240,18,173 




71,3,208,16 


49968 


DATA 


0,0,0,0,0,0,0,0 


49520 


DATA 69,3,41,4,208, 
21,173,64 


49728 


DATA 169,253,141, 
249,7,159,2,141 


49975 


DATA 




0,247,0,0,0,0,32, 


49528 


DATA 3,240,16,206,54, 
3,75,139 


49735 


DATA 132,3,169,0,141, 
68,3,96 


49984 


DATA 
0,2,2 


40,128,54,0,135, 


49536 


DATA 193,173,64,3, 


49744 


DATA 159,1,141,40, 


49992 


DATA 


0,130,33,128,2, 




201,16,240,3 




208,96,70,70 




18,195,15 


49544 


DATA 238,64,3,173,70, 
3,201,1 


49752 


DATA 70,70,110,110, 
110,110,150,150 


50000 


DATA 
169,0 


168,0,17,11,0,1,.. 


49552 


DATA 208,15,206,5, 


49760 


DATA 150,150,190, 


50008 


DATA 


1,45,72,17,146, 




208,173,5,208 




190,190,190,230,230 




8,0,136 


49560 


DATA 201,30,208,5, 
159,2,141,70 


49768 


DATA 230,230,100, 
133,157,200,152,0 


50016 


DATA 
0,2 


144,0,8,8,8,120, 


49568 


DATA 3,96,173,59,3, 


49775 


DATA 189,122,194, 


50024 


DATA 


24,128,15,8,16, 




41,16,201 




157,128,62,232,208 




0,0,32 


49576 


DATA 0,208,38,173,70, 


49784 


DATA 247,95,0,0,0,0,0, 


50032 


DATA 


2,3,0,1,32,0,0,0 . 




3,208,33 







50040 


DATA 


0,193,255 
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LA MUSICA, LOS MICROS 
YEL 




El hacer musica con tu ordenador no 
es mas que un punto de partida. La in- 
troduccion de equipos basados en el 
MIDI te permite conectar los ordena- 
dores con los sintetizadores musicales y 
pasar de uno a otro. 

El sonido se ha convertido en una 
de las principales caracteristicas que la 
mayoria de la gente espera encontrar 
en un microordenador domestico, 
hasta el punto de que hay personas 
que pueden sentirse indinadas a com- 
prar un ordenador determinado a 
causa de sus posibilidades sonoras. 
Aparte de la musica que puedas hacer 
con tu ordenador, esta empezando a 
introducirse y a estar cada vez mas fa- 
cilmente disponible la posibilidad de 
conectar muchos microordenadores 
domesticos a sintetizadores y a otras 
clases de instrumentos musicales. El 
estandar correspondiente se llama 
MIDI, Interface Digital para Instru- 
mentos Musicales (Musical Instru- 
ment Digital Interface) y te brinda una 
nueva gama de posibles utilizaciones 
para tu ordenador. 

EL SONIDO DE LOS 
ORDENADORES 

El sonido que son capaces de pro- 
ducir los ordenadores ha evolucionado 
enormemente desde los pitidos y zum- 
bidos producidos por los primeros mo- 
delos que incorporaban sonidos, hasta 
la posibihdad de ejecutar piezas mu- 
sicales y producir otros efectos sono- 
ros. Las capacidades sonoras que te 
ofrece el Commodore 64 figuran entre 
las mas sofisticadas que se pueden en- 
contrar en un ordenador domestico, 
para lo cual dispone de su propio chip, 
lo que permite un amplio margen de 
posibihdades musicales. El ordenador 
dispone de tres canales musicales o vo- 
ces que pueden interpretarse por se- 
parado o juntas (formando acordes). 



Ademas el sonido que producen no es 
el de una nota «pura» ya que puedes 
conformar la calidad del sonido resul- 
tante utilizando envolventes. 

Si has probado alguno de los pro- 
gramas de musica que hemos publi- 
cado en INPUT, ya sabras lo que es 
posible conseguir con tu ordenador. 
Incluso los sonidos mas sofisticados 
producidos con el mas sofisticado de 
los ordenadores, son de una cahdad 
inferior a la que nos tienen acostum- 
brados las grabaciones normales, por 
no mencionar los inconvenientes de 
intentar ejecutar un fragmento musi- 
cal con un teclado QWERTY. Incluso 
en el caso mas favorable, el micro si- 
gue estando por debajo de un instru- 
mento musical construido deliberada- 
mente para ser utihzado como tal. 

INSTRUMENTOS MUSICALES 

La historia del desarrollo de los ins- 
trumentos musicales en las ultimas de- 
cadas ha seguido un desarrollo bas- 
tante paralelo al de las maquinas de 
calcular. Los instrumentos tradicio- 
nales eran mecanicos: trozos de piel 
que se golpeaban, cuerdas pulsadas o 
frotadas, etc. Poco a poco, la necesi- 
dad creciente de conseguir un mayor 
volumen en los conciertos en vivo y la 
necesidad de hacer grabaciones, ha 
ido conduciendo a que se vayan elec- 
trificando instrumentos como guita- 
rras y pianos, hasta disponer final- 
mente, en los tiltimos anos, de instru- 
mentos musicales puramente electro- 
nicos tales como los sintetizadores. De 
la misma forma que las maquinas de 
calcular han evolucionado desde el 
abaco mecanico hasta el moderno or- 
denador que incorpora tecnologia 
electronica digital, los ultimos instru- 
mentos musicales que han aparecido 
estan Uenos de circuitos integrados. 

Los sintetizadores modernos son 
unos dispositivos extraordinariamente 
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viduales de tiempo hasta que se com- 
pleta toda la melodia. 

EL MIDI Y LOS ORDENADORES 
DOMESTICOS 

Coincidiendo con la aparicion de los 
ordenadores que utilizan el estandar 
MSX se ha dado bastante publicidad a 
la relacion entre el MIDI y los micros 
domesticos. Yamaha ha introducido el 
ordenador musical CX5M, que es un 
ordenador MSX con un sintetizador 
incorporado. Si a este ordenador se le 
anade un teclado de tipo pianistico, el 
propietario se encuentra en posesion 
de un autentico sintetizador hecho y 
derecho. Esta maquina brinda toda 
clase de posibilidades a los musicos: se 
puede componer sobre la pantalla de 
un monitor, o se puede utilizar el or- 
denador como secuenciador sin nece- 
sidad de ningiin hardware adicional. 

El costo de este ordenador supera 
considerablemente al de un Commo- 
dore 64, pero puedes tener un dispo- 
sitivo parecido si utilizas tu ordenador 
conectandolo a un sintetizador MIDI. 
Para ello necesitas una caja de inter- 
face MIDI a la que conectar tu orde- 
nador, un conector y un poco de soft- 
ware. La caja de interface, cuyo coste 
es inferior al de un Spectrum, te per- 
mitira conectar tu ordenador a cual- 
quier equipo que sea compatible con 
la interface MIDI. En la actualidad el 
precio de los sintetizadores compati- 
bles con MIDI es bastante superior al 
de un Commodore, por lo que en rea- 
lidad constituye una via muy cara para 
que los usuarios de ordenadores do- 
mesticos extiendan el campo de sus 
habiiidades musicales, pero al igual 
que ocurre con las impresoras, los mo- 
nitores de color y las unidades de 
disco, se puede predecir una caida en 
el precio de los instrumentos. En un 
future no lejano, el precio de un sin- 
tetizador resultara probablemente 
comparable al de los micros domesti- 
cos que pueden utilizarse para contro- 
larlo. 

Pero incluso antes de que se pro- 
duzca esta caida de precios, los posee- 
dores de equipos musicales compati- 
bles con MIDI consideraran que una 
combinacion de un micro domestico y 




una interface MIDI es una alternativa 
muy atractiva. Con un software ade- 
cuado se puede disponer de un ampho 
margen de posibilidades y se puede 
disponer de una gran cantidad de efec- 
tos anadidos a un coste muy mode- 
rado. 

Cuando un ordenador domestico se 
conecta a la interface MIDI, no se uti- 
lizan para nada las capacidades sono- 
ras que incorpora; el sonido se genera 
siempre en el sintetizador o en la ma- 
quina de percusion, por lo que no es 
preciso adquirir un ordenador muy 
caro para utilizarlo especificamente 
con el MIDI. Es importante darse 
cuenta de que no hay ninguna ventaja 
real en utilizar ordenadores profesio- 
nales de alto precio en lugar de micros 
domesticos. Incluso la cantidad de me- 
moria adicional de que disponen los 
ordenadores profesionales es en gran 
parte superflua, ya que el espacio de 
memoria normal de un micro domes- 



tico supera ampliamente, por ejem- 
plo, al de cualquier secuenciador. La 
idea basica es que un ordenador al que 
se pueda conectar una interface MIDI 
es tan bueno como cualquier otro, 
aunque pudiera ser que en el caso del 
Spectrum de 16K te encuentres con la 
capacidad de memoria ligeramente li- 
mitada. 

Hay que destacar ademas que la ca- 
lidad del sonido disponible no esta li- 
mitada por el medio de grabacion. 
Como el sonido se almacena digital- 
mente, se le puede comparar con el de 
un medio como el del Compact Disk, 
en vez de la cinta a la que se le puede 
aiiadir todo tipo de ruido indeseable. 
En otras palabras, lo que sale de un 
sistema MIDI es exactamente igual a 
lo que entra. 

SOFTWARE PARA EL «MIDI» 

Una vez que ya tengas enganchado 
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tu ordenador a un instrumento musi- 
cal por medio del MIDI, necesitaras 
algdn software para que funcione. Ac- 
tualmente la oferta es todavia bastante 
restringida y comparable en precio al 
software comercial disponible para or- 
denadores domesticos. ■ La situacion 
ira cambiando a medida que haya mas 
gente que use el MIDI. 

No obstante, incluso con la escasa 
oferta que existe actualmente. ya hay 
programas que te permiten duplicar 
secuenciadores, componer musica en 
varias pistas y editar tus propias me- 
lodias. Las ofertas concretas varian de 
unos fabricantes a otros y de unos or- 
denadores a otros. 

Aunque te consideres incapaz de 
ejecutar una nota en un instrumento 
musical, te encontraras con que pue- 
des interpretar musica compuesta so- 
bre el monitor de tu ordenador y en- 
viando la informacion al instrumento 
musical que ha de ejecutarla. Tambien 



puedes almacenar la composicion en 
disco o cinta para hacer despues play- 
back o para ejecutarla en otro mo- 
mento. Se preve la existencia de hojas 
de miisica disponibles en EPROMs 
codificadas en formato MIDI, por lo 
que se tendran piezas completas eje- 
cutables de forma parecida a un disco 
o cinta, o bien para tocar al mismo 
tiempo que se hace un playback con el 
contenido de una EPROM. 

Un paquete de software tipico del 
MIDI es el programa compositor de 
musica que te permite ir construyendo 
tu pieza sobre la pantalla, de forma 
muy parecida a como la escribirias so- 
bre el papel, incorporando las notas 
sobre un pentagrama. Unas utihdades 
completas de edicion y ejecucion te 
permiten comprobar el estado de 
avance e introducir modificaciones en 
la pantalla. Pero no termina aqui la 
cosa, ya que un buen software pondra 
ademas a tu disposicion todas las po- 



sibilidades del sintetizador. Puedes 
controlar tantas voces simultaneas 
como permita el sintetizador; un sin- 
tetizador pohfonico tipico de alta ca- 
lidad, puede llegar a ejecutar hasta 16 
notas al mismo tiempo. Puedes esco- 
gerlas dentro del margen de notas pre- 
programadas en el sintetizador o com- 
binar nuevas notas. Si tu sintetizador 
tiene la posibilidad de desdoblar en 
dos el teclado, puedes tener incluso 
dos instrumentos diferentes sonando 
al mismo tiempo, por ejemplo, una 
melodia y su acompaiiamiento. En ge- 
neral hay tres tipos de informacion 
que puedes enviar al MIDI: notas, 
cambios de programa y mezclas de so- 
nidos. 

En la actualidad hay un conjunto 
normalizado de codigos MIDI, que 
funcionaran con cualquier sintetizador 
compatible-MIDI. Pero dichos codi- 
gos solo sirven para controlar las fun- 
ciones mas basicas disponibles. Se 
puede acceder a otras prestaciones es- 
peciales por medio de sistemas de co- 
dificacion extendidos, que normal- 
mente varian de un instrumento a 
otro. Como consecuencia, una pieza 
compleja con una or.questacion va- 
riada puede exigir la familiaridad con 
un gran niimero de codigos MIDI, si 
bien es muy posible que esto se sim- 
phfique considerablemente en el fu- 
turo. 

Si te consideras un programador de 
ordenadores y no un musico, no por 
ello tienes que desanimarte para uti- 
lizar el MIDI. En cierto modo tienes 
alguna ventaja. Si puedes programar 
en codigo maquina, no hay nada que 
te impida escribir tu propio software 
para el MIDI, cortado a la medida de 
tus necesidades, con lo que ademas te 
ahorraras el gasto que supone la com- 
pra de un software comercial. 

El MIDI parece ofrecer muchas po- 
sibilidades al mlisico como al no mii- 
sico. A medida que los precios van ba- 
jando, los instrumentos musicales pa- 
recen estar destinados a abrirse ca- 
mino en la mayoria de los hogares;. 
iquien sabe si llegaran a generalizarse 
las veladas musicales en torno al sin- 
tetizador! Y ademas tendras la opor- 
tunidad de llegar a ser realmente crea- 
tivo con tu ordenador. 
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Ejemplo de MIDI enlazando un 
ordenador, una mdquina de 
percusion y un sintetizador. La 
informacion musical se puede 
almacenar en el disco. 



sofisticados. En lugar del niimero li- 
mitado de notas que pueden ser inter- 
pretadas en un ordenador, y del nii- 
mero limitado (o inexistente) de tipos 
de envolventes, te encontraras con un 
asombroso conjunto de posibilidades. 
Un sintetizador tipico de precio medio 
te permitira la ejecucion de acordes de 
hasta ocho notas en un teclado ade- 
cuado. Casi todas las maquinas ofre- 
cen un conjunto de sonidos preprogra- 
mados, por lo que si quieres tener el 
sonido de un piano o un violin no tie- 
nes mas que pulsar la tecla adecuada. 
Pero no todo se queda en los sonidos 
preprogramados; puedes jugar con las 
ideas que se te ocurran hasta producir 
casi cualquier sonido que desees. El 
sueiio del publicista con un sintetiza- 
dor que puede llegar a ser una or- 
questa completa, no esta disponible 
todavia, pero probablemente esta ya 
acechando en la mente de alguien en 
alguna parte. Cuando se mencionan 
los sintetizadores, casi todo el mundo 
piensa inmediatamente en los instru- 
mentos de teclado que constituyen con 
mucha diferencia el tipo mas corriente 
de sintetizador. Pero dado que real- 
mente el corazon del sintetizador es 
una caja que contiene una electronica 
para producir sonidos, la cual puede 
ser atacada por algun tipo de senal, en 
pura teoria no hay razon para que no 



se utilice otro tipo de instrumentos 
para atacar dicha electronica. En la 
practica, la cosa es ligeramente dife- 
rente. Por diversas razones tecnicas, el 
tipo de sintetizador musical mas po- 
pular sigue siendo el de teclado, si 
bien puedes comprar sintetizadores 
tipo guitarra, que se tocan exacta- 
mente igual que una guitarra aunque 
suenan como tii quieras que suenen. 
Tambien hay sintetizadores de percu- 
sion, diferentes de las maquinas de 
percusion sintetica, que se tocan gol- 
peando sobre una serie de almohadi- 
llas. Por otra parte las maquinas de 
percusion estan preprogramadas para 
proporcionar un soporte ritmico sin la 
intervencion de un ejecutante. Pero 
tambien estas caen dentro de la cate- 
goria de sintetizadores. Hasta hace 
poco tiempo, las maquinas de percu- 
sion tenian un sonido muy caracteris- 
tico, por lo que cualquier grabacion 
hecha con una maquina de estas en 
vez de con un verdadero instrumento 
de percusion era reconocible al ins- 
tante. Con los ultimos avances de la 
tecnologia, ya no puede decirse esto. 
Casi todas las maquinas de percusion 
ofrecen unos cuantos ritmos preselec- 
cionados, poseyendo ademas una ca- 
pacidad de memoria que te permite 
crear y almacenar tus propios esque- 
mas ritmicos. 

Esta iiltima posibilidad de las ma- 
quinas de percusion sefiala el camino 
hacia una verdadera revolucion en lo 
musical. Hasta ahora la habilidad mu- 
sical siempre habfa dependido de al- 
giin tipo de destreza manual, es decir 
de la posibilidad de mover los dedos 



con rapidez y precision sobre un te- 
clado, o de poder golpear con preci- 
sion una membrana en el instante 
justo. En los instrumentos de viento, 
la habilidad consiste en coordinar el 
movimiento de los dedos con los di- 
ferentes movimientos respiratorios. 
La Uegada de los instrumentos musi- 
cales programables modifica por com- 
pleto este panorama. La maquina pro- 
gramable de percusion no sirve como 
sustituto del talento musical. Sigue ha- 
ciendo falta alguien capaz de entender 
el ritmo y de «oir» en su mente el 
efecto deseado. Lo que hace la ma- 
quina es liberar a la persona dotada de 
talento musical de esa dependencia de 
la habilidad manual y de la necesidad 
de adquirir un instrumento de percu- 
sion caro y voluminoso. 

Los sintetizadores de teclado tienen 
ya la posibilidad de sonar virtualmente 
como cualquier instrumento que tu 
elijas. Si a ello se le afiade la posibi- 
hdad de programar sus ejecuciones, se 
abre todo un nuevo mundo musical in- 
cluso ante los que parecen tener una 
mano con cinco dedos gordos. 

Ahora que los ordenadores y los 
instrumentos musicales^^mplean el 
mismo tipo de tecnoWgia, es relativa- 
mente facil enviar informacion desde 
un ordenador a un instrumento musi- 
cal y viceversa; esta es la funcion de 
MIDI. 

iQUE ES EL MIDI? 

El MIDI es un estandar de inter- 
face, como ocurre con la Centronics o 
la RS 232 con las que ya te habras en- 
contrado en relacion con perifericos 
tales como impresoras y modems. En 
este caso, aunque el MIDI se utiliza 
exclusivamente en conexion con el 
mundo de la miisica, el papel de la in- 
terface es exactamente el mismo: la 
transferencia de informacion de un si- 
tio a otro, con un formato normali- 
zado. Su principal funcion como es- 
tandar es garantizar que la informa- 
cion se transmita de tal forma que 
cualquier tipo de equipo compatible- 
MIDI sea capaz de entender a la per- 
feccion la informacion que recibe. 

Ha habido varios intentos anterio- 
res para imponer una norma de co- 
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municacion entre instrumentos musi- 
cales, pero ninguno de ellos ha con- 
seguido lograr una aceptacion gene- 
ralizada. En el caso del MIDI, las 
perspectivas parecen ser diferentes, ya 
que todos los sintetizadores y maqui- 
nas de percusion producidas por los 
dos principales fabricantes de teclados 
del mundo, Yamaha y Roland, se 
adaptan a la nueva norma y actual- 
mente esta haciendo su aparicion una 
nueva gama de ordenadores compati- 
bles con dicha norma. Parece ser que 
la norma es universalmente aceptada, 
tanto por los fabricantes de instrumen- 
tos musicales electronicos como por 
los de ordenadores susceptibles de ser 
conectados a ellos. 

Todo equipo compatible con MIDI 
tiene tres conectores DIN de cinco pi- 
nes, que llevan las denominaciones 
«IN>>, «OUT» y «THRU» (algunos 
equipos MIDI mas antiguos puede 
que no lleven el conector «THRU»). 
El conector «IN» permite que el 
equipo reciba senales MIDI desde 
otro equipo MIDI. Con «OUT» ocu- 
rre exactamente lo contrario, permi- 
tiendo que un equipo MIDI envie se- 
iiales MIDI a otro equipo MIDI. Por 
medio de «THRU» se envia una copia 
directa de la informacion que le llega 
a un equipo MIDI hacia otro equipo 
MIDI. Esto significa que se puede ac- 
tuar sobre varios dispositivos al mismo 
tiempo, conectandolos a traves de sus 
conectores «THRU». Por eso los equi- 
pos que no dispongan del conector 
«THRU» son mucho mas limitados en 
sus prestaciones. 
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El estandar MIDI permite transmi- 
tir separadamente hasta 16 canales de 
informacion al mismo tiempo. Cada 
canal permite al musico controlar un 
instrumento por separado, pero la in- 
formacion coexiste sobre el mismo 
hilo. Cada dispositive «se sintoniza» 
con la informacion que se le esta en- 
viando, de una forma algo semejante 
a la que tiene un televisor de sintoni- 
zarse en un determinado canal. 

iCOMO SE UTILIZA EL MIDI? 

EI MIDI esta en el mercado desde 
1982, aunque en principio solo llamo 
la atencion de unos cuantos propieta- 
rios de micros domesticos. Los miisi- 
cos han utilizado el MIDI para atacar 
unos instrumentos a partir de otros. 
Por ejempio, se puede hacer que dos 
sintetizadores produzcan sonidos di- 
ferentes, pero al mismo tiempo a par- 
tir de un solo teclado, conectando 



Un bus de MIDI puede contener 
hasta 16 canales de informacion que 
controlen otros tantos instrumentos. 



para ello ambos instrumentos por me- 
dio de una interface MIDI y tocando 
en el teclado de uno de ellos. 

El MIDI tambien permite a un mii- 
sico conectar una maquina de percu- 
sion a un teclado y sincronizar un 
ritmo con una determinada melodia. 
Tambien es posible conectar un se- 
cuenciador. Un secuenciador es un 
dispositive capaz de recordar lo que se 
ha tocado y de volver a ejecutarlo. Los 
hay de dos tipos: de tiempo real y de 
pasos. Un secuenciador de tiempo real 
ejecuta exactamente lo que el musico 
ha tocado, mientras que un secuencia- 
dor por pasos literalmente va reco- 
rriendo la melodia paso a paso, mien- 
tras el musico va tocando las notas una 
a una, cubriendo los intervalos indi- 
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Para poder determinar de forma pre- 
cisa la evolucion del tiempo atmosferico 
es imprescindible recoger un gran nu- 
mero de datos referentes al estado cll- 
matico de la atmosfera. 

Normalmente esta tarea la realiza el 
meteorologo encargado de la estacion 
correspondiente, anotando los datos 
climaticos mas relevantes cada cierto 
periodo de tiempo. Con la ayuda de 
nuestro ordenador esta labor puede 
ser facilmente automatizada. Para ello 
solo hace falta disponer de los inter- 
faces o sensores adecuados capaces de 
convertir las variaciones de las mag- 
nitudes a medir en variaciones inteli- 
gibles por el ordenador. La calidad de 
esta conversion nos marcara la fiabi- 
lidad de nuestra estacion. La ventaja 
de realizar las observaciones con or- 
denador es clara: es posible obtener 
un niimero elevado de datos de forma 
objetiva, almacenarlos e incluso inter- 
pretarlos automaticamente. Ademas, 
los sensores pueden colocarse en cual- 
quier lugar aunque este sea de dificil 
accesibilidad y un mismo ordenador 
puede controlar la informacion de va- 
rias estaciones. 



Las magnitudes a medir en una es- 
tacion meteorologica son de lo mas va- 
riadas, pero nos hemos centrado en las 
cuatro siguientes: 

— Deteccion de insolacion 

— Medicion de la presion atmosfe- 
rica 

— Medicion de la temperatura 

— Deteccion de la intensidad de 
lluvia 

Para realizar cada una de estas fun- 
ciones se precisa un interface distinto. 
Quiza se eche en falta un medidor de 
humedad. Esto se debe a que unica- 
mente podemos utilizar cuatro senso- 
res de forma simultanea con nuestro 
Commodore, como mas adelante ex- 
plicaremos. No obstante, el sensor 
que precisa un detector de humedad 
es identico al del medidor de presion, 
por lo que puede reemplazarse otro 
detector (como el de insolacion, que 
no es muy relevante) por el de hu- 
medad. 

Es evidente que los sensores deben 
controlarse a traves de un programa 
adecuado. Todos ellos iran conectados 
a la entrada reservada para los paddles 
situada en el port del joystick. Cada 
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port dispone de dos entradas para 
paddle, con lo que en total dispone- 
mos de cuatro entradas para nuestros 
sensores. 

A continuacion describiremos el 
funcionamiento de estas entradas, la 
forma de realizar fisicamente los sen- 
sores y las rutinas adecuadas para la 
correcta deteccion. Finalmente se des- 
cribira el programa principal, encar- 
gado de: coordinar todas las tareas, al- 
macenar y presentar los datos e inter- 
pretar los resultados. 

EL CONVERSOR A/D 

Las seiiales provenientes del mundo 
exterior, en este caso de los sensores, 
son siempre analogicas, lo que quiere 
decir que pueden tomar cualquier va- 
lor dentro de unos margenes defini- 
dos. Cualquier ordenador es incapaz 
de manejar esta clase de informacion 
haciendose imprescindible el discreti- 
zarla. Discretizar consiste en asignar 
un valor numerico a un margen de va- 
lores analogicos; cuanto mas estrecho 
sea este margen mejor sera la conver- 
sion. Nuestro ordenador dispone de 
dos de estos conversores anal6gico-di- 
gitales (A/D) dentro del chip de so- 
nido y a los que se puede acceder por 
las entradas destinadas a los paddles. 

Estos conversores son un tanto pe- 
culiares ya que estan controlados por 
variaciones de resistencia y no de ten- 
sion, que es lo habitual. La resistencia 
variable debe colocarse entre las pa- 
tihas de alimentacion (5 v.) y la del 
conversor correspondiente (POTX o 
POTY). A traves de ella circulara una 
corriente que ira cargando un conden- 
sador interno. Transcurrido un cierto 
tiempo, el ordenador lee la tension 
que este ha alcanzado y la guarda, dis- 
cretizandola, en un registro. La ten- 
sion que alcanza el condensador es 
proporcional a la corriente, pero esta 
es inversamente proporcional a la re- 
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sistencia conectada. No obstante, se 
almacena un valor proporcional a la 
resistencia. Una vez leida la tension, 
el condensador se descarga y el pro- 
ceso se repite, realizandose 2.000 ve- 
ces en un segundo. 

Debe tenerse la precaucion de no 
conectar resistencias inferiores a los 
500 Q ya que el chip puede daiiarse. 
Una resistencia mayor de 400 K pro- 
porciona siempre un valor 255. La ca- 
racteristica valor almacenado-resisten- 
cia conectada es similar a la mostrada 
en la figura 1. Interesa siempre tra- 
bajar en la zona lineal, es decir, para 
valores de resistencia hasta 100 K. En 
esta zona se cumple la siguiente ley: 



Valor almacenado 
kQ) 



Valor de R (en 



lo cual es muy adecuado para obtener 
una'buena respuesta de los sensores. 
Hemos dicho que solo se dispone de 
dos conversores A/D, pero sin em- 
bargo existen 4 entradas de paddle. 
Existe la posibilidad de conmutar de 
port y hacer que el conversor A/D ac- 
tiie sobre uno u otro. Para ello basta 
alterar el bit mas significative de la po- 
sicion 56320, como mas tarde expli- 
caremos. De esta forma es posible tra- 
bajar con cuatro sensores a la vez. Las 
conexiones a efectuar en los ports se 
ilustran en la figura 1. 

DETECTOR DE HMSOLACIOW 

El detector de insolacion es el pri- 
mer sensor que vamos a comentar. 
Normalmente en los observatorios se 
construye con una esfera de cristal que 
actiia de lupa y que va quemando un 
papel de registro segiin el grado de in- 
solacion. El detector que vamos a 
construir sera mas sensible ya que fun- 
cionara incluso para ambientes bas- 
tante oscuros. A partir del grado de 
luz recibida podremos discernir in- 
cluso si el cielo esta soleado o cubierto 
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y con que intensidad lo esta. Podra 
tambien obtenerse de forma automa- 
tica las horas de puesta y salida del 
Sol. 

El sensor a emplear es de lo mas 
simple ya que unicamente consiste en 
una resistencia de proteccion y en una 
celula fotoconductora. Esta iiltima no 
es mas que un dispositive que varia su 
resistencia de forma muy acusada y 
dependiendo del nivel de luz que in- 
cide sobre ella. Para niveles altos de 
iluminacion la resistencia se mantiene 
en un valor bajo, mientras que para 
medios y bajos aumenta rapidamente. 
De esta forma pueden discernirse am- 
bientes nublados de claros con facili- 
dad. La celula fotoconductora o LCR 
debe recubrirse con un tubo para evi- 
tar que incida luz de forma lateral que 
perturbe la medicion. El tubo debe te- 
ner las paredes interiores negras y ha 
de enfocarse directamente hacia el 
cielo, evitando que el Sol incida sobre 
la celula. Puede incluirse en una caja 
transparente para protegerlo de la llu- 
via. La forma de conectarlo a los ca- 
bles que llegan del ordenador es in- 
diferente. El esquema del sensor lo te- 
nemos en la figura 2. 



Ahora es preciso desarrollar una ru- 
tina que lea la informacion del port, 
que viene del sensor, y que la alma- 
cene. El programa es el siguiente: 

1000 FOR I = TO 9 : TP = TP 
+ PEEK (54297) : NEXT 

1010 LU (IN) = (TP/10 - 14)*0, 
8 : TP = 

1020 RETURN 

Esta rutina no es ejecutable hasta 
que haya sido completado el programa 
principal. Lo que hace basicamente es 
tomar diez muestras, sumarlas y divi- 
dirlas por diez para obtener asi un va- 
lor medio. Esto debe hacerse para evi- 
tar mediciones incorrectas. Por ejem- 
plo, la sombra de un pajaro o avion 
puede llevar a equivocos o incluso el 
destello de un relampago. Tomando 
una media se compensan los posibles 
errores. 

En la variable LU (IN) se introduce 
el valor medio leido, de forma que 
para maxima iluminacion LU valga 
cero y que para minima valga 192. 
Para el montaje realizado se obtiene 
un valor de TP minimo de 14 con ma- 
xima luz. Este valor dependera en 
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cada caso del material empleado para 
hacer el sensor y debe ajustarse en el 
programa (linea 1010) si difiere del in- 
dicado. El ajuste se hara obteniendo 
el valor de TP medio con maxima luz. 

IN corresponde a una variable del 
programa principal e indica el instante 
en el que se ha tomado la muestra. 

Segdn el valor de LU (IN) obtenido 
puede actuarse en consecuencia. Por 
ejemplo, al ponerse el Sol este valor 
aumenta rapidamente. Estableciendo 
un valor de referenda, que debe ob- 
tenerse haciendo varias pruebas, po- 
demos detectar con precision la hora 
de puesta del Sol y la del amanecer. 
Esto nos permitiria tambien actuar so- 
bre un sistema de iluminacion, ha- 
ciendo que este se active al detectar el 
ocaso. Para ello debe utilizarse el port 
del usuario, como mas tarde veremos. 

MEDIDOR BAROMETRICO 

El barometro es un instrumento in- 
dispensable para conocer el estado 
ambiental y su evolucion. Desgracia- 
damente no existe ningun dispositivo 
sencillo que tenga una variacion de re- 
sistencia apreciable segiin los peque- 
iios cambios de presion. Por ello se 
hace imprescindible partir de un ba- 
rometro convencional para poder 
construir nuestro sensor. Este no sera 
mas que una resistencia variable con- 
trolada por la aguja del barometro. 

El proceso de fabricacion del sensor 
es el siguiente: Se recorta un circulo 
de papel de dimensiones similares a 
las del barometro. Sobre el papel se 
dibuja un trozo de corona circular de 
1 cm de ancho y pegada al borde, que 
se extienda desde el valor minimo de 
presion a detectar (720 mm) hasta el 
valor maximo (790 mm). Sobre la co- 
rona se adhiere carbon en polvo de 
forma lo mas uniforme posible. En el 
extremo de la aguja se coloca una la- 
mina de papel de aluminio de forma 
que haga contacto con la pista de car- 
bon. Asi un desplazamiento de la 
aguja se transforma en una variacion 
lineal de la resistencia. Se ha de pro- 
curar que entre los extremos de la 
pista exista una resistencia de unos 100 
K. Si no se alcanza este valor debe li- 
jarse la pista para eliminar carbon; si 



se supera debe anadirse mas carbon o 
ensanchar el tamaiio de la misma. En 
la figura 3 se ilustra el aspecto final del 
sensor. 

Este sensor debe conectarse de 
forma analoga a como se hizo con el 
detector de insolacion. Se introduce 
tambien, y a efectos de proteccion, 
una resistencia de 12 KQ. 

Un sensor de humedad se construye 
de forma identica a la descrita. 

El programa que controla este de- 
tector es muy similar al desarrollado 
para el detector de luz: 

2000 FOR I = TO 9 : TP = TP 
+ PEEK (54298) : NEXT 

2010 PR (IN) = (TP/10 - 14)*2 
: TP = 

2020 RETURN 

Funciona de manera analoga al an- 
terior. Ahora se consulta la posicion 
54298, correspondiente a POTY. Los 
valores extremos de PR son 0, lo que 
equivale a 720 mm, y 172, que equi- 
vale a 790 mm. La precision de la me- 
dida depende de lo uniforme que sea 
el sensor, pero en general es bastante 
buena. 

MEDIDOR DE TEMPERATURA 

El sensor de temperatura es el mas 
delicado de todos. Si dispusieramos de 
un termometro de aguja podriamos 
construirlo tal y como hicimos con el 
de presion. No obstante, la precision 



obtenida seria pequefia debido al am- 
plio margen de temperaturas que es 
necesario cubrir (de —20 °C hasta 
40 °C, como minimo). Lo mas ade- 
cuado es hacer uso de un pequeno cir- 
cuito electronico que funcione como 
sensor como el mostrado en la fig. 4. 

El circuito consta basicamente de 
dos amplificadores operacionales y un 
puente de resistencias una de las cua- 
les varia de forma apreciable con la 
temperatura. El desequilibrio del 
puente se debe a las oscilaciones ter- 
micas. A la salida del circuito, se ob- 
tiene una tension entre y 5 V que es 
proporcional a la temperatura. Esta 
tension se aphca a traves de una resis- 
tencia a la entrada POTX del port 2 
directamente. Cuanto mas tension 
haya, menor sera el valor almacenado 
en memoria. 

La alimentacion del circuito puede 
tomarse directamente del port al que 
esta conectado el sensor, ya que su 
consume es pequefio. La precision al- 
canzada puede ser elevada siempre 
que el circuito se ajuste conveniente- 
mente. Este ajuste depende de las ca- 
racteristicas de la resistencia sensora, 
que debera ser del tipo NTO, es decir, 
debe disminuir su valor conforme au- 
menta la temperatura. Deben seguirse 
los siguientes pasos: 

Una vez adquirida la NTO deben 
consultarse sus caracteristicas y parti- 
cularmente es necesario conocer su re- 
sistencia a -20 °C y su coeficiente de 
variacion termico. Mediante un oh- 
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poco dife rente, ya que se hace nece- 
sario tomar an niimero mayor de 

muestras. 



metro deben ajustarse las resistencias 
del puente al valor de la NTO a 
— 20 °C. Hecho esto, debe obtenerse 
el valor de R;, a traves de la expresion 



K = 



R, - 20° dc NTO 



coef. icimico de NTO* 6()° C 



(en kQ) 



Si esta relacion se cumple, justa- 
mente cuando la temperatura sea de 
40 °C la salida data 5 V de tension. 
Para la temperatura de —20 °C la sa- 
lida es nula. Debe tambien procurarse 
que las resistencias que acttian sobre 
el primer operacional sean lo mas 
iguales posible. 

Ahora tendremos un valor 255 si se 
detectan —20 °C y 8 si la temperatura 
es de 40 °C, pero recordemos que la 
conversion solo es correcta si el valor 
detectado es menor que 100. Me- 
diante unos sencillos calculos se com- 
prueba que este valor se alcanza 
cuando la temperatura es de —17, 
6 °C, con lo que el sensor funcionara 
bien entre esta temperatura y 40 °C. 

El programa que controla el sensor 
es similar a los anteriores: 

3000 FOR [ = TO 9 : TP - TP 
+ PEEK (54297) : NEXT 

3010 TM (IN) = (TP/10 - 8)*2 : 
TP - 

3020 RETURN 

Los valores extremes de TM seran 
0, para 40- "C y 184, para -17,6 °C. 



Este sensor se coloca en el port 2, por 
lo que para acceder a esta rutina de- 
bera actuarse sobre el registro 56320. 

Lo habitual a la hora de medir la Uu- 
via es utilizar pluvidmetros que no son 
mas que recipientes calibrados que in- 
dican la cantidad de agua calda a lo 
largo de un cierto periodo de tiempo. 
Esto no deja de ser una medida a pos- 
teriori, que no proporciona informa- 
cion sobre la intensidad de lluvia en un 
instante dado. El sensor que vamos a 
desarroilar permitira obtener registros 
de precipitacion instantanea. 

El detector sera un simple micro- 
fono de carbon como los utilizados en 
los aparatos telefonicos, encerrado 
dentro de una lata metalica. Las gotas 
de lluvia al incidir sobre la lata origi- 
naran un ruido, amplificado en cierta 
medida por la misma, captable por el 
microfono. Este respondera variando 
su resistencia de acuerdo con la inten- 
sidad de sonido (o lo que es lo mismo, 
de lluvia) captado. La lata debe estar 
abierta por un lado y el microfono 
debe situarse junto a la pared cerrada, 
ya que la presion aciistica es mayor en 
ese punto. Debe procurarse situar el 
conjunto en ambientes poco ruidosos. 

Por lo que respecta a la conexion en 
el port, esta se efecttia de la forma ya 
conocida a traves de una resistencia de 
proteccion. 

La figura 5 muestra el aspecto final 
del sensor. 

El programa de control es ahora un 
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FOR I = TO 81 : TP 

IP + PEEK (54298) - 

NEXT 

LL (IN) = TP : TP - 

RETURN 



8 : 



El valor en ausencia de ruido es 8 
para el microfono utilizado. Debe mo- 
dificarse el valor de la line a 4000 en 
caso de no obtenerse el valor especi- 
ficado. En LL queda almacenado un 
ntimero que sera proporcional a la in- 
tensidad de lluvia; en ausencia de esta 
vale cero. El valor almacenado no esta 
expresado en ninguna unidad ya que 
se trata de una medicion comparativa. 
Con los datos recogidos es posible es- 
tablecer un numero que establezca la 
lluvia caida a lo largo de un dia. Esta 
tarea correra a cargo del programa 
principal como ya veremos. 

Se encargara de coordinar todas las 
tareas: lectura de los sensores, alma- 
cenamiento de la informacion, presen- 
tacion e interpretacion de la misma. El 
programa comienza preguntando la 
hora del dia en la que conlienza a eje- 
cutarse para asi ajustar el reloj. Cada 
cinco minutos toma muestras de los 
cuatro sensores y las almacena, con lo 
que al finalizar el dia habra tomado un 
total de 288 muestras. Transcurrido el 
dia traza las graficas correspondientes. 
Se precisa el cartucho jimon's BASIC 
para la eje-cucion del programa. 

10 DIM LU(288),PR(288), 

TM(288),LL(288):IN = 
20 INPUT"(SHIFTCLR)QUE 

HORA ES (HH,MM)";HH,MM 
30 HF$-RIGHT$(STR$(HH),2) + 

RIGHT$(STR$(MM),2) 
40 TI$=HF$ + "00": PIV!=MM - 5 
50 PM = PM + 5: IF PM>= 60 

THEN PM-PM - 60 
60 IFVAL(MID$(TI$,3,2)) = PM 

THEN 80 
70 GOTO 60 
80 IFVAL(LEFT$(TI$, ■ • 

4)) = VAL(HF$) - 5 THEN 200 
90 !N = IN + 1: GOSUB 1000: 

GOSUB 2000 
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100 POKE 56334, PEEK(56334) 

AND 254: POKE 56320,191 
110 GOSUB 3000: GOSUB 4000 
120 POKE 56334, PEEK(56334) 

OR 1 
130 TI$-LEFT$(TI$,4) + "0" + 

RIGHT$(STR$(VAL(RiGHT$ 

(T1$,1)K1),1) 
140 PRINT"(SHIFTCLR) 

VALORES ACTUALES:" 
150 PRINT"(2 CRSDWN)(3 

SPOLUZ:"; 192-LU(IN) 
160 PRINT"(2 CRSDWN)(3 

SPC)PRESION;";720 + 

INT(700/172*PR{m))/10; 

"mm" 
170 PRINT"(2 CRSDWN)(3 

SPC)TEMPER.:";40-INT(576/ 

184^TM(IN))/10;"C." 
180 PRINT"(2 CRSDWN)(3 

SPOLLUVIA :";LL{IN) 
190 GOTO 50 
200 PRINT"(SHIFTCLR) 

GRAFICAS DEL DIA:" 
210 PRINT"(2 CRSDWN){3 

SPOINTENSIDAD DE LUZ": 

PAUSE 4 
220 HIRES 1,6: LINE 11,0,11, 

200,1:LINE 0,192,320, 

192,1 
230 FOR I = 1 TO 288: PLOT I + 

11,LU(I),1: NEXT: PAUSE 10 
240 NRM: PRINT"{SHIFT CLR)(3 

CRSDWN) PRESION": 



PAUSE 4 
250 HIRES 1,6: LINE 11,0,11, 

200,1: LINE 0,192,320, 

192,1 
260 FOR 1 = 1 TO 288: PLOT I 

+ 11,172-PR{I),1: NEXT: 

PAUSE 10:NRM 
270 PRINT"(SHIFTCLR) 

TEMPERATURA": PAUSE 4 
280 HIRES 1,6: LINE 11,0,11, 

200,1: LINE 0,192,320, 

192,1 
290 FOR I = 1 TO 288: PLOT I 

+ 11,TM(I),1: NEXT: PAUSE 

10 
300 NRM: PRINT"(SHIFTCLR)(3 

CRSDWN) LLUVIA": PAUSE 4 
310 FOR I = 1 TO 288: LL - LL 

+ LL(I) 
320 IFLL(I)>MXTHEN IVIX=LL(I) 
330 NEXT: IF MX=0 THEN 

MX=1 
340 HIRES 1,6: LINE 11,0,11, 

200,1: LINE 0,192,320, 

192,1 
350 FOR I = 1 TO 288: PLOT I 

+ ll,19r(l-LL(l)/MX),l: 

NEXT:PAUSE 10 
360 NRM: PRINT"(SHIFT CLR) 

LLUVIA TOTAL=";LL : END 

El programa funciona del siguiente 
modo. En un principio se inicializan 
las variables que van a almacenar los 



datos y se pide la hora (hora y mi- 
nute) . El reloj se pone en hora supo- 
niendo que los segundos son 00. A 
continuacion se entra en el bucle prin- 
cipal que lo unico que hace es esperar 
que pasen cinco minutes. Si esto se ha 
producido se comprueba entonces si 
se ha alcanzado la hora final, es decir, 
si ha transcurrido un dia completo. 
Hasta que esto ultimo no suceda se 
van leyendo los sensores cada cinco 
minutos. Para leer los sensores del 
port 1 basta con llamar a las rutinas 
correspondientes (en 1000 y 2000), 
pero para leer los conectados al port 2 
debe previaniente activarse el bit 7 de 
la posicidn 56320. Esto unicamente 
puede hacerse si se desactivan las in- 
terrupciones, principalraente la de- 
bida al reloj del sistema. Como puede 
suponerse esto trae consigo una pa- 
ralizacion del reloj del ordenador que 
hara que se retrase cada vez que se 
lean los sensores. Las rutinas de lec- 
tura estan estructuradas de tal manera 
que el retraso que se produce es de un 
segundo. La linea 130 se encarga de 
arreglar este retraso. , 

Cada vez que se leen los sensores 
aparecen los datos obtenidos en pan- 
talla y de ello se encargan las lineas 
140 a 180. 

Una vez alcanzada la hora final se 
pasa al trazado de las graficas del dia 
con ayuda de las rutinas graficas del 
cartucho de ampliacion del BASIC. Se 
calcula tambien la lluvia total caida. 

El programa desarrollado es lo mas 
simple posible y puede ser desarro- 
llado todo lo que se quiera segiin nues- 
tras necesidades. Por ejemplo es muy 
facil desarrollar rutinas que, a partir 
de los datos medidos, nos indiquen los 
valores medios y extremos (maxiinos y 
minimos) de las diferentes magnitudes 
medidas. Tambien podria hacerse que 
el ordenador interpretara los datos 
medidos y nos indicara si el ambiente 
es frio, caluroso, si esta nublado o 
llueve, si estamos bajo un anticiclon o 
borrasca, etc. Por ultimo, como ya 
mencionamos, puede utilizarse la me- 
dida de intensidad de luz para activar 
un sistema de iiuminacion. Para ello, 
bastaria con comparar los valores de 
LU leidos con un valor de referenda 
que indique el umbral de oscuridad. 
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LA MAQUINA 
TRAGAPERRAS 




Veil con nosotros a probar suerte en 
Las Vegas con el juego de la maquina de 
Frutas que te ofrece INPUT. No tengas 
miedo; nuestra tragaperras no te va- 
ciara los bolsillos. 

La gran mayoria de bingos y salones 
de juego han introducido, en lugar de 
las antiguas maquinas de factura me- 
canica, otras modernas de frutas 
electronicas, con una panta- 
]!a de television que 
mues- 
tra las 
ruletas. 
Este articulOi 
se divide 
en. dos 
partes, 
y trata 
de ensenarte 
como puedes 
imitar una de estas innovadoras ma- 
quinas con la ayuda de tu micro. 

El juego esta dotado de todos los 
componentes que puedes encontrar en 
una maquina de frutas de verdad — pa- 
rada, apuesta, movimiento, etce- 
tera — , y se dan graficos animados 
para simular las ruletas mecanicas. 

El disponer de un programa como 
este para jugar tc va a salvar de que 
un jugador avaricioso te desplume, 
aunque tampoco tii te vas a hacer rico 
con el. No olvides, como siempre, 
guardar (SAVE) esta parte del pro- 
grama que completaras con la se- 
gunda. Para hacer funcionar (RUN) el 
programa habras de esperar a tenerlo 
complete, aunque ya puedes probar la 
visualizacion de algunos graficos fun- 
damentales. 

PUESTA A PUNTO DE LOS 
GRAFICOS 

Las lineas 120 a 140 conticncn los 
DATA para la fruta de colores. Las 
instrucciones del color son entradas 



directamente mcdiante codigos de 
control, segun hemos explicado en 
esta revista en anteriores ocasiones, al 
objeto de ahorrar memoria; los lista- 
dos aparecen en color. Para entrar es- 
tas lineas, utiliza el modo extended 
(CAPS SHIFT y SYMBOL SHIFT), 
pulsando despues la tecla de color 
apropiada. Seguidamente pasa al 
modo de graficos (CAPS SHIFT y 9), 
scguido de las letras que hay en el lis- 
tado. 

10 LET HFLAG-0: POKE 23658, 

8: RESTORE 20: GO SUB 

840 
20 DATA 14,31,31,31,31,15,3, 

1,56,252,252,252,252,248, 

224,192 
30 DATA 49,42,51,42,50,255, 
- 255,255,: 

84,255,255, 
40 DATA 3,4, 

62,62,28, 

190,125, 

62,28, 

0,0. 


50 DATA 

0,0.16, 

28,15, 

7,3,0, 

4,12,26,56,248,240,224,0 
50 DATA 0,0,7,15,31,31,15,7, 

8,248,240,240,224,224, 

192,128 
70 DATA 1,3,3,7,15,15,24,1, 

128,192,192,224,240,240, 
■ 24,128 
80 DATA 1,7,15,31,31,31,31, 

15,224,240,240,240,240, 

224,192,128 
90 DATA 8,8,8,8,73,42,28,8, 

16,56,84,146,16,16,16,16 
100 FOR i = USR "a" TO USR 
"p" + 7: READ a: POKE i,a: 



CQMO IMITAR LAS MAQUINAS 

DE FRUTAS MECANICAS 

DIVERSION GARANTIZADA 

SACA EL MAXIMO PARTIDQ 

DE LOS GRAFICOS 




NEXT i 

110 LETTOTAL-100 

120 DATA "AB","IJ","GH", 

"CD","IJ","AB","EF","KL", 
"MN","EF","GH","MN" 

130 DATA "U","AB","KL", 
"MN","EF","6H","CD", 
"EF","AB","CD","IJ","MN" 

140 DATA "EF","MN","GH", 
"KL","CD","AB","IJ","AB", 
"IJ","CD","IJ","MN" 

150 DIM A$(24,2): FOR i-1 TO 
12: READ A$(i): LET 
A$(I-M2)=A$(i): NEXT i 

160 DIM B$(24,2): FOR i-1 TO 
12: READ B$(i): LET 
B$(i+12)-B$(i): NEXTi 

170 DIM C$(24,2): FOR i-1 TO 
12: READC$(i): LET 
C$(i + 12)=C$(i): NEXT i 

840 BORDER 6: PAPER 6: INK 
2: CLS 

850 PRINT "" 

860 REM FOR i-0 TO 1: FOR 
J-0TO 31: PRINT PAPER 

7;AT i,j;" ": NEXT]: NEXTi 

870 FOR i = 2 TO 5: PRINT AT i, 

0; PAPER 6;" ";AT i,28; 

" ": NEXTi 
880 PRINT PAPER 6; INK 2;AT 

0,6;"10 PESETAS UNA 

JUGADA" 
890 PRINT PAPER 6; 

INK 4;AT 

1,4;" "; 

AT 2,4; 



900 PRINT 
PAPER 6 
■ INK 4;AT 
1,4;" 
AT 3,4; 
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243,255,252,0,0 10240 
10135 DATA 192,192,192,0,0, 

0,0,0 10245 

10140 DATA 0,0,10,34,170, 

136,170,162 10250 

10145 DATA 12,48,254,185, 

42,162,170,34 10255 
10150 DATA 0,0,128,32,168, 

40,168,136 10260 

10155 DATA 170,40,10,2,0,0, 

0,0 10265 

10150 DATA 0,0,0,0,0,0,0,0 
10165 DATA 168,13-8,170,34, 10270 

168,168,32,0 
10170 DATA 102,102,102,0,0, 10275 

0.0-0 
10175 DATA 168,160,128,0,0, 10280 

0.0.0 
10180 DATA 0,0,0,0,0,3,3,3 10285 

10185 DATA 4,16,84,252,252, 

255,255,255 10''90 

10190 DATA 0,0,0,0,0,0,0,0 
10195 DATA 3,15,15,15,15, 10295 

15,3,0 
10200 DATA 255,255,255, 10300 

255,255,255,255,0 
10205 DATA 0,192,192,192, 10305 

192,192,0,0 10310 

10210 DATA 0,0,0,0,1,1,1,1 
10215 DATA 16,15,84,58,81, 10315 

81,81,81 10320 

10220 DATA 0,0,0,0,0,0,0,0 
10225 DATA 1,5,21,85,0,0,0,0 10325 
10230 DATA 81,84,85,85,16, 

0,0,0 10330 

10235 DATA 0,64,16,84,0,0,0, 

$ 10335 

138 INPUT Juegos 



DATA 252,204,204, 

204,204,204,252,0 

DATA 240,48,48,48,48, 

48,252,0 

DATA 252,12,12,252, 

192,192,252,0 

DATA 252,12,12,60,12, 

12,252,0 

DATA 204,204,204, 

252,12,12,12,0 

DATA 252,192,192, 

252,12,12,252,0 

DATA 192,192,192, 

252,204,204,252,0 

DATA 252,12,12,12,12, 

12,12,0 

DATA 252,204,204, 

252,204,204,252,0 

DATA 252,204,204, 

252,12,12,12,0 

DATA 0,0,0,0,10,32,40, 

42 

nA 12,48,48,240,12, 
13>.,130,130 
DATA 0,0,0,0,160,8, 
136,168 

DATA 10,0,0,0,0,0,0,0 
DATA 0,40,130,162, 
170,40,0,0 

DATA 160,0,0,0,0,0,0,0 
DATA 252,192,192, 
192,192,192,252,0 
DATA 240,204,204, 
204,204,204,240,0 
DATA 252,192,192, 
240,192,192,252,0 
DATA 252,192,192, 



240,192,192,192,0 

10340 DATA 48,204,192,192, 

204,204,48,0 
10345 DATA 204,204,204, 

252,204,204,204,0 
10350 DATA 252,48,48,48,48, 

48,252,0 
10355 DATA 192,192,192, 

192,192,192,252,0 
10360 DATA 204,204,252, 

252,204,204,204,0 
10365 DATA 48,204,204,204, 

204,204,48,0 
10370 DATA 240,204,204, 

240,192,192,192,0 
10375 DATA 240,204,204, 

240,204,204,204,0 
10380 DATA 48,204,192,48, 

12,204,48,0 
10385 DATA 252,48,48,48,48, 

48,48,0 
10390 DATA 204,204,204, 

204,204,204,48,0 
10395 DATA 12,48,48,252,48, 

240,204,0 
10400 DATA 0,0,0,60,60,0,0,0 
10405 DATA 255,255,255, 

255,255,255,255,255 

Las lineas 40 a 50 establecen una vi- 
sualizacion donde se pide al jugador 
que espere. Ei Commodore 64 tarda 
algiin tiempo en establecer los UDG 
necesarios para la fruta. 

Las lineas 55 a 65 leen (READ) los 
DATA del final del programa (ob- 
serva las lineas 10000 a 10405) para es- 
tablecer los UDG. 



INSTRUCCIONES 



70 POKE 53282, 7:P0KE 53283, 
2:P0KE 53280, 7:P0KE 

53281,7 
75 PRINT "[SHiFT+CLR/HOME] 
[CTRL+1]";CHR$(14); 
SPC(15);"[SHIFT+S] 
[SHIFT+U][SHIFT+P] 
[SHIFT+E][SHIFT+R] 
• [SHIFT+F][SHIFT+R] 
[SHIFT+U][SHIFT+I] 
[SHIFT+T]" 
80 PRINT "[CRSR 

ABAJ0](CTRL+3][SHIFT 
+ D1ISP0NES DE 1 LIBRA 
(£1) PARA EMPEZAR ." 
85 PRINT "[SHIFT+CIADAVEZ 
JUEGAS 10 PENIQUES, 
HASTAQUE" 
90 PRINT "TEQUEDES SIN 
DINERO.":PRINT "[CRSR 
ABAJ0][CTRL+1][SHIFT+C] 
[SHIFT+0][SHIFT+N] 
[SHIFT+T][SHIFT+R] 
[SHIFT+0][SHIFT+L] 
[SHIFT+E][SHIFT+S]:-" 
95 PRINT "[CRSR 

ABAJ0][C0MM+2]<[SHIFT 
+ E][SHIFT+S][SHIFT+P] 
[SHIFT+A][SHIFT+C] 
[SHIFT+n[SHIFT+0]>", 
"-[SHIFT+UANZA ELJUEGO' 
100 PRINT "<1>", 

"-[SHIFT+CIANCELA LOS 
-[SHIFT+H][SHIFT+0] 
[SHIFT+L][SHIFT+D] 
[SHIFT+S]-" 
105 PRINT "<2>", 

"-[SHIFT + DIETIENE 
BANDA IZQUIERDA" 
110 PRINT "<3>", 

"-[SHIFT + D]ETIENE 
BANDA CENTRAL" 
115 PRINT "<4>", 

"-[SHIFT+DIETIENE 
BANDA DERECHA" 
120 PRINT "<5>", 

"-[SHIFT+AIVANZA BANDA 
IZQDAT 2 

ESPACIOS][SHIFT+A][ 
2*SHIFT+R][SHIFT+I] . 



[SHIFT + B][SHIFT+A]" 

125 PRINT "<6>", 

"-[SHIFT+AIVANZA BANDA 
CENTRAL [SHIFT+A][ 
2*SHIFT+R][SHIFT+I] 
[SHIFT+B][SHIFT + A]" 

130 PRINT "<7>", 

"-[SHIFT+AIVANZA BANDA 
DERECHA [SHIFT+A][ 
2*SHIFT+R][SHIFT+I] 
[SHIFT+B][SHIFT + A]" 

135 PRINT "<8>", 

"-[SHIFT+AIVANZA BANDA 
IZQDA.[ 2 ESPACIOS] 
[SHIFT+A][SHIFT+B] 
[SHIFT+A][SHIFT+J] 
[SHIFT+0]" 

140 PRINT "<9>", 

"-[SHIFT+AIVANZA BANDA 
CENTRAL [SHIFT+A] 
[SHIFT+B][SHIFT+A] 



[SHIFT+J][SHIFT+0]" 

145 PRINT "<0>", 

"-[SHIFT+AIVANZA BANDA 
DERECHA [SHIFT+A] 
[SHIFT+B][SHIFT+A] 
[SHIFT+J][SHIFT+0]" 

150 PRINT "<[SHIFT + R] 
[SHIFT+E][SHIFT+T] 
[SHIFT+U][SHIFT+R] 
[SHIFT+N]>", 
"-[SHIFT+R]ECOGIDA DEL 
PREMIO" 

155 PRINT "[ 2*CRSR 

ABAJ0][CTRL+1][CRSR 
DCHA.][SHIFT+P]ULSAR UN 
ESPACIO PARA JUGAR..." 

160 GET A$:IF A$<>" " 
THEN160 

Las Hneas 70 a 160 establecen la 
pantalla de instrucciones. 
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I PREPARACION DEL JUEGO 

165 PRINT "[SHIFT+CLR/ 

H0ME]";CHR$(142):P0KE 
53280, 10:POKE 53281, 
10:POKE 53272,29 

170 POKE 53270, PEEK{53270) 
OR 16:P0KE 53282, 7:P0KE 
53283, 2:IFXX-1 THEN190 

175 DIM R1%(15),R2%(15), 
R3%(15),W%{9),F${6) 

180 FOR A-0TO 15:READ 
R1%{A),R2%(A), 
R3%{A):NEXT :FOR A=0 TO 
9:READ W%(A):NEXT A 

185 FOR A=0TO5:READ 
F$(A):NEXT A 

190 POKE 53280, 13:P0KE 
53281, 1:PRINT 

140 INPUT Juegos 



"[SHIFT+CLR/HOME][CRSR 

ABAJ0]",F$(3);"[CRSR 

ARRIBA][CRSR DOHA.]"; 

F$(3);"[CRSR 

ARRIBA][CRSR 205 

DCHA.]"F$(3); 
195 PRINT "[CRSRARRIBA][ 

4*CRSR 

DCHAJ[COMM. + l][SHlFT+0] 

2[SHIFT+P]00":PRINT 

"[CRSR ABAJ0]",F$(2); 

"[CRSR ARRIBA][CRSR 

DCHA.]";F$(2);"[CRSR 

ARRIBA][CRSR DOHA.]"; 210 

F$(2); 
200 PRINT "[CRSR Af!RIBA][ 

4*CRSR 

DCHA.][COMM. + l][SHIFT+0] 

1[SHIFT+P]50":PRINT 

"[CRSR ABAJ0]",F$(5); 



"[CRSR ARRIBA][CRSR 

DCHA.]";F$(5);"[CRSR 

ARRIBA][CRSR DOHA.]"; 

F$(5); 

PRINT "[CRSR ARRIBA][ 

4*CRSR 

DCHA.][COMM. + l][SHIFT+0] 

1[SHIFT + P]00":PRINT 

"[CRSR ABAJ0]",F$(4); 

"[CRSR ARRIBA][CRSR 

DCHA.]";F$(4);"[CRSR 

ARRIBA][CRSR DCHA.]"; 

F$(4); 

PRINT "[CRSR ARRIBA][ 
4*CRSR DCHA.][C0MM. + 1] 
[SHIFT + O]0[SHIFT + P]80": 
PRINT "[CRSR ABAJO]", 
F$(6);"[CRSR 
ARRIBA][CRSR DCHA.]"; 
F$(6);"[CRSR 
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ARRIBA][CRSR DCHA.]"; 
F$(6); 

215 PRINT "[CRSR ARRIBA][ 
4*CRSR 

DCHA.][COMM. + l][SHiFT+0] 
0[SHIFT+P]60":PRINT 
"[CRSR ABAJO]",F$(0); 
"[CRSR ARRiBA][CRSR 
DCHA.]";F$(0);"[CRSR 
ARRIBA][CRSR DCHA.]"; 
F$(0); 

220 PRINT "[CRSR ARRIBA][ 
4*CRSR 

DCHA.][COMM. + l][SHIFT+0] 
0[SHIFT+P]40":PRINT 
"[CRSR ABAJ0]",F$(1); 
"[CRSR ARRIBA][CRSR 
DCHA.]";F$(1);"[CRSR 
ARRIBA][CRSR DCHA.]"; 
F$(l); 

225 PRINT "[CRSR ARRIBA][ 
4*CRSR 

DCHA.][COMM. + l][SHIFT+0] 
0[SHIFT+P]30":PRINT 
"[CRSR ABAJO]",F$(0); 
"[CRSR ARRIBA][CRSR 
DCHA.]";F${0);"[CRSR 
ARRIBA][CRSR 
DCHA.][C0MM. + 1][ 
3*SHIFT+P][CRSR 
ABAJO]"; 

230 PRINT "[CRSR ARRIBA][ 
4*CRSR 

DCHA.][COMM. + l][SHIFT+0] 
0[SHIFT+P]30":PRmT 
"[CRSR ABAJ0]",F$(1); 
"[CRSR ARRIBA][CRSR 
DCHA.]";F$(1);"[CRSR 
ARRIBA][CRSR 
DCHA.][C0MM. + 1][ 
3*SHIFT+P][CRSR 

235 PRINT "[CRSR ARRIBA][ 
4*CRSR 

DCHA.][COMM. + l][SHIFT+0] 
0[SHIFT+P]20":PRINT 
"[CRSR ABAJ0]",F$(1); 
"[CRSR ARRIBA][CRSR 
DCHA.][C0MIVI. + 1][ 
3*SHIFT+P][CRSR DCHA.][ 
3*SHIFT+P][4*CRSR 
DCHA.][SH[FT+O]0[SHIFT+P] 
10" 



240 PRINT "[ 2*CRSR ABAJO][ 
13*CRSR DCHA.][C0MM + 7] 
[SHIFT+J][SHIFT+N] 
[SHIFT+G][SHIFT+L] 
[SHIFT+B] 

[ 2*SHIFT+ESPACI0] 
[SHIFT+P][SH[FT+K] 
[SHIFT+B][SHIFT+M] 
[SHIFT+N][SH!FT+K] 
[SHIFT+H][SHIFT+P]"; 
245 GET A$:IF A$<>CHR$(13) 

THEN245 
10410 DATA 0,1,2,3,5,6,6,2, 

0,5,3,4,4,6,5,6,4,3,1, 

2,0,3,0,5,2,1,4,6,5,1, 

0,6,6 
10415 DATA 1,4,3,2,0,1,5,3, 

2,4,6,6,6,4,5 
10420 DATA 200,150,100,80, 

60,40,30,20,10,0 
10425 DATA "[C0MM. + 1]* + , 

[CRSR ABAJO][ 3*CRSR 

IZQDA. ]-./", 

"[C0MM + 6]:;<[CRSR 

ABAJO][ 3*CRSR 

IZQDA. ]->?", 

"[C0MM + 6]PQR[CRSR 

ABAJO][ 3*CRSR 

IZQDA.ISTU", 

"[C0MM. + 1]JKL[CRSR 

ABAJQ][ 3*CRSR 

IZQDAJMNO" 
10430 DATA 

"[C0MM + 6]£] t [CRSR 

ABAJ0][3*CRSR 

IZQDA.]^!#", 

"[COMM + 7] 

VWX[CRSR 

ABAJO][ 3*CRSR 

IZQDA.]YZ[", 

"[C0MM + 6]$%&[CRSR 

ABAJO][ 3*CRSR 

IZQDAJ'O" 

Las lineas 170 a 185 preparan las ru- 
letas. Los vectores DTMensionados en 
la linea 175 se emplean como sigue: 
Rl%, R2% y R3% contienen la'^co- 
locacion de las frutas en cada ruleta, 
W% representa las ganancias de cada 
una de las Iineas ganadoras, y F$ la in- 
formacion necesaria para visualizar las 
frutas. Los vectores contienen los 



DATA que se leen (READ) desde la 
h'nea 10410 hasta la 10430. 

Las lineas 190 hasta 245 establecen 
la segunda pantalla que el jugador ve: 
la informacion de la linea ganadora. 



MONTAJE DE LA WIAQUINA ^ 

250 POKE 53280, 0:POKE 
53281, hPRINT 
"[SHIFT+CLR/HOME][CRSR 
IZQDA. ]";:FOR A=l TO 24 

255 PRINT "[40*CRSR 

ARRIBA]";:NEXT :FQR ' 
A=1984TO2023 . 

260 POKE A,81:P0KE 

A+54272,13:NEXT A:PRINT 
"[CLR/HOME][CRSR 
ABAJ0]","[4*CRSR DCHA.] 
[C0MM. + 1][SHIFT+P] 
" [SHIFT+L][SHIFT+N] 
[SHIFT+J][SHIFT+B] 
[SHIFT+K][SHIFT+C] 
[SHIFT+K][SHIFT+N] 
[SHIFT+F][SHIFT+M] 
[SHIFT+P]" 

265 PRINT "[CLR/HOME][ 

3*CRSR ABAJ0]";:F0R A-0 
TO 9:PRINT "[ 7*CRSR 
DCHA.][ 5 ESPACIOS][ 

• ■ 2*CRSR DCHA.][ 5 
ESPACIOS][ 2*CRSR 
DCHA.][ 5 ESPACIOS][ 
2*CRSR 

DCHA...][C0MM + 8][SHIFT 
+ 0]"; 

270 A$ = RIGHT${"00" + 

MID$(STR$(W%(A)),2), 
3):PRINT LEFT$(A$,.l); 
"[SHIFT+P]";RIGHT$(A$,2); 

275 PRINT "[ 7^CRSR DCHA.]"; 
:NEXTA 

280 PRINT "[CRSR ABAJ0][ 

7'^CRSR DCHA.][C0MM + 8] 
[SHIFT+P][SHIFT + E] 
[SHIFT+I][SHIFT + G] 
[SHIFT+A][ 2*CRSR DCHA.] 
[SHIFT+P][SHIFT+E] 
[SHIFT+I][SHIFT+G] 
[SHIFT+A][ 2*CRSR DCHA.] 
[SHIFT+P][SH!FT+E] 
[SHIFT+I][SHIFT+G] 

Juegos INPUT 1^41 



[SHIFT+A]" 
285 PRINT "[3*CRSR ABAJO][ 

10*CRSR 

DCHA.][C0MM. + 1] 

[SHIFT+H][SHIFT+N] 

[SHIFT+A][SHIFT+D] 

[SHIFT+B][C0MM+3][CRSR 

DCHA.]@A[CRSR 

DCHA.]BC[CRSR 

DCHA.]DE[CRSR 

DCHA.]FG[CRSR DCHA.]HI[ 



10*CRSR DCHA.]"; 

290 PRINT "[2*CRSR ABAJO][ 
12*CRSR DCHA.][SHIFT+D] 
[SHIFT+K][SHIFT+B] 
[SHIFT+A][SHIFT+F] 
[SHIFT+M][SHIFT + I][ 
2*CRSR 

DCHA.][SHIFT + 0][CLR/ 
HOME]"; 

295 M-RND(-TI):M = 100: 

H%-^1:I%=-1:J%=-1: 



P% = INT 

(RND(1)*16):Q%-INT 

(RND(1)*16) 
300 R%=INT 

(RND(1)*16):N%=0 
305 GOSUB 9500 

Las Imeas 250 a 305 dibujan la ma- 
quina de frutas con ventanas para las 
ruletas, y las areas para el movi- 
miento, la apuesta y el dinero. 
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FRUTAS 
YCOCO 



COMPLETATU MAQUINA 



LINEAS GANADORAS 



DE FRUTAS 



AJUSTE DEL CREDITO 



DAR VUELTAS 



A LAS RULETAS 



COMPROBACION DE LAS 



Libera la ruleta de tu tragaperras y 
trata de conseguir el frutero con esta se- 
gunda parte del programa. Se cobra 20 
veces mas que se apuesta. 

En esta segunda parte del articulo 
que hemos dedicado a la maquina de 
frutas, se completa el programa y de- 
jamos la maquina a punto para em- 
pezar el juego, 

m ' ' ~"~~^ 

EL BUCLE PRINCIPAL 

310 GOSUB 1000:GOSUB 

2000:GOSUB 3000:IFM>0 
THEN310 

315 GOSUB 4000:GOTO70 

4000 POKE 53270, 

PEEK(53270) AND 
239:P0KE 53280, 2:P0KE 
53281, 8;P0KE 53272,21 

4005 PRINT "[SHIFT+CLR/ 
HOME][CRSR 
ABAJ0][CTRL+1]"; 
CHR$(14),"[4*CRSR 
DCHA.][SHIFT+M]ALA 
[SHIFT+SJUERTE !!!" 

4010 PRINT "[ 2*CRSR ABAJO][ 
7*CRSR 

DCHA.][SHIFT+T]E HAS 
QUEDADO SIN DINERO!!!" 

4015 PRINT "[CRSR 

ABAJO][SHIFT+P]ULSA 
UN ESPACIO PARA JUGAR 
DE NUEVO ..." 

4020 GET A$:IF A$<>CHR${32) 
THEN4020 

4025 XX-1:G0T0 70 

La linea 310 reclama las subrutinas 
que hacen dar vueltas a las ruletas, 
comprueba las lineas ganadoras y ob- 
serva que tecla ha pulsado el jugador. 
El bucle se repite hasta que se agota 
el dinero del jugador. Si este todavia 
tiene dinero, la linea 315 llama la sub- 



rutina de la linea 4000, la cual da 
cuenta mediante aviso al jugador de su 
mala suerte y le permite un nuevo in- 
tento. 

RULETAS EN ACCION 



1000 



1005 
1010 



1015 
1020 
1025 
1030 



1035 

1040 
1045 
1050 



1055 

1060 
1055 



1075 



PRINT "[CLR/H0ME][ 
14*CRSR ABAJ0][ 7*CRSR 

DCHA.][C0MM+8] 

[SHIFT+P][SHIFT+E] 

[SHIFT+I][SHIFT+G] 

[SHIFT+A][ 2*CRSR 

DCHA.][SHIFT+P] 

[SHIFT+E][SHIFT+I] 

[SHIFT+G][SHIFT+A][ 

2*CRSR DCHA.][SHIFT+P] 

[SHIFT+E][SHIFT+I] 

[SHIFT+G][SHIFT+A][CLR/ 

HOiVlE]";:M = M"10 

GOSUB 9500 

TI$ = "000000":DM = 0;DR 

-100:IF NOT H% 

THEN1035 

IF H% THENGOSUB 5500 

IF 1% THENGOSUB 6500 

IF J% THENGOSUB 7500 

IFTI$<"000002" AND 

H% THEN FOR Z-1 TO 

50:NEXTZ:GOTO 1015 

TI$ = "000000":IF NOT 1% 

THEN1055 

IF 1% THENGOSUB 6500 

IFJ% THENGOSUB 7500 

IFTI$<"000002" AND 1% 

THENFORZ-1 TO 

100:NEXTZ:GOTO 1040 

TI$-"000000":IFNOTJ% 

THEN1075 

IF J% THENGOSUB 7500 

IFTI$<"000002" AND J% 

THENFOR Z=l TO 

150:NEXTZ:GOTO 1060 

H%--1:I%=-1:J%=-1: 

RETURN 



PARPADEO DE LOS AVANCES, 



PARADAS Y APUESTAS 



LOS EFECTOS SONOROS 



Las lineas 1000 a 1075 hacen dar 
vueltas a las ruletas para las que ha es- 
cogido el jugador liberal el avance. 
Las variables H5,I5 y J% son los flags 
de dicho avance correspondientes a las 
tres ruletas. 

MONTONES DE BiLLETES 



1500 
1505 

1510 
1515 



2000 



2005 
2010 
2015 
2020 
2025 

2030 
2035 

2040 

2045 
2050 

2055 



IF D% = 0THENRETURN 

FOR Y- 10 TO D% 

STEP10:M-M + 10 

GOSUB 9500 

DR=40:DM = 40:GOSUB 

8000:FOR T=l TO 

100:NEXTT,Y:RETURN 

D% = 9.-A=PEEK(1313): 

B = PEEK(1320): 

C-PEEK(1327):IF A-B - --^ 

AND B=C AND 0=11 

THEND% = 

IF A=B AND B=C AND 

C=17 THEND%-1 

IF A = B AND B=C AND ■ ' ', 

= 23 THEND% = 2 

IF A = B AND B = C AND 

C = 29THEND% = 3 

IF A = B AND B=C AND 

C-37 THEND% = 4 

IF A=B AND B=C AND 

C-43 THEND% = 5:G0T0 

2035 

IF A-B AND B-43 

THEND%-6 

IFA=B AND B-C AND 

C-59THEND%-6:G0T0 

2050 

IFA-B AND B-59 

THEND%-7:G0T0 2050 

IFA=59THEND%=8 

IF D%=9: OR D% = 

THEND%=W%(D%):G0SUB 

1500:RETURN 

FOR A=1172+(D%*40) TO 

1176 + (D%*40):POKE 
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A+54272,14:NEXT 

A:LL-INT(RND(1)*2) 
2060 FOR 

A=1132 + (LL*80) + (D%M0) 

TO 

1136+(LL*80) + (D%*40): 

POKE A+54272,12:NEXT 

A:CL=12 
2065 GETA$:IF A$=CHR$(13) 

THEND% = W%(D%):GOSUB 

1500:GOSUB 

9000:RETURN 
2070 IF A$=CHR$(32} 

THEN2090 
2075 FOR A-1212-(LL*80) + 

(D%*40) TO 

1216-(LL*80)+{D%*40): 

POKE A+54272,CL: 

NEXT A 
2080 CL-27-CL:FOR 

A=1132 + (LL*80) 

+ (D%*40) TO 

1136+(LL*80) + (D%*40): 

POKE A+54272,CL 

NEXT A:GOT0 2065 

FOR A=1172 + (D%*40)TO 

1176+(D%*40):POKE 

A+54272,15: 

NEXT A 

IF (CL=15 AND LL-0) OR 

(CL=12 AND LL-1) 

THEND% = W%(D%+1): 

GOSUB 1500:GOSUB 

9000:RETURN 
2100 D7o=D%-l:IF D%-0 

THEND%-200:GOSUB 

1500:GOSUB 

9000:RETURN 
2105 GOS'UB 9000:GOTO 

2055 

Las Imeas 1500 a 1515 constituyen la 
rutina del credito, la cual incrementa 
la variable M% segun el importe total 
ganado por el jugador. 

Las lineas 2000 a 2105 comprueban 
si ha habido alguna llnea ganadora 
una vez que han dejado de dar vueltas 
las ruletas. Si esto sucede, se llama la 
rutina de la linea 1500. 

Las lineas 2055 a 2085 controlan la 
visualizacion de la derecha de las ru- 
letas que muestra la suma con la que 
quiere ganar el jugador. 
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STOP, MOVIWIIENTO 
YAPUESTA 



2085 
2090 



2095 



3010 

3015 
3020 



3000 IFRND(1)<.25 

THENGOSUB 4500 

3005 IF RND(1)<.4 

THENCL$="[C0MM + 7] 
[C0MM+8]":SS-1: 
H%=-1:I% = -1:J%--1: 

GOTO3020 

GET A$:IFA$<>CHR$(32) 

THEN3010 

RETURN 

PRINT "[CLR/HOME][ 

14*CRSR ABAJO][ 7*CRSR 

DCHA.]";MID$(CL$,SS,1); 

:IF H%THENPRINT 

"[SHIFT+P][SHIFT+E] 

[SHIFT+I][SHIFT+G] 

[SHIFT+A][ 2*CRSR 

DOHA'.]"; 

3025 IF 1% THENPRINT "[CLR/ 
HOME][ 14*CRSR 
ABAJO]","[ 4*CRSR 
DCHA.][SHIFT+P] 
[SHIFT + E][SHIFT+I] 
[SHIFT + G][SHIFT+A][ . 
2*CRSR DOHA.]"; 

3030 IF J% THENPRINT "[CLR/ 
HOME][ 14*CRSR 
ABAJO]",,"[CRSR DOHA.] 
[SHIFT+P][SHIFT + E] 
[SHIFT+I][SHIFT+G] 
[SHIFT+A][CLR/HOME]"; 

3035 GET A$:IFA$-CHR${32) 
THEN RETURN 

3040 IF A$<"1" OR A$>"4" 
THENSS-3-SS:G0T0 
3020 

3045 ON VAL(A$)G0T0 3065, - 
3050,3055,3060 

3050 H%-0:PRINT "[CLR/ 

H0ME][ 14*CRSR ABAJO][ 

7*CRSR 

DCHA.][C0MM. + 1] 

[SHIFT+PICSHIFT+E] 

[SHIFT+I][SHIFT+G] 

[SH1FT-I-A][CLR/H0ME]"; 

:GOTO 3020 

3055 l% = 0:PRINT "[CLR/ 
HOMEK 14*CRSR 
ABAJO]","[ 4*CRSR 



3060 



DCHA.][C0MM. + 1] 
[SHIFT+P][SHIFT+E] 
[SHIFT+I][SH!FT+G] 
[SHIFT+A][CLR/HOME]"; 
:GOTO 3020 
J%-0:PRINT "[CLR/ 
HOME][ 14*CRSR ABAJO" 
,"[CRSR 




gu 




En INPUT estamos convencidos de que aun 

puedes hacer muchas mas cosas con tu 

ordenador. Sin duda, muchos lectores estareis 

utilizando vuestro micro para funciones de !o mas 

variadas, en unos cases; pintorescas, en otros; 

mientras que algunos listillos habran podido 

utilizarlo para resolver tareas complejas. Es logico, 

modificando programas y variando los perifericos 

nuestro ordenador puede prestar sua servicios en 

infinidad de facetas. INPUT quiere que esas 
aplicaciones y utilidades a las que has conseguido 

dedicar tu ordenador, sean conocidas por todos 

sus lectores y por eso ha organizado el «Concurso 

de Aplicaciones y Utilidades)), en el que puede 

participar cualquiera de nuestros lectores. 






UTILIDADES Y APLICACIONES: Si tu orde- 
nador controla la calefaccion de tu casa, gobierna 
un robot, dirige un pequeno negocio, organiza la 
maqueta de tu tren electrico, o cualquier cosa in- 
teresante u original; envianos informacion grafica y 
listados de tus programas, grabados en un cassette, 
diskette o microdrive. 

Todo ello habra de venir acompanado por un 
texto que aclare cual es su objetivo, el modo de fun- 
cionamiento y una explicacion de! cometido que 
cumplen las distintas rutinas que lo componen. El 
texto se presentara en papel de taraafio folio y me- 
canografiado a dos espacios. No importa que la re- 
daccion no sea muy clara y cuidada; nuestro equipo 
de expertos se encargara de proporcionarle la forma 
mas atractiva posible. 

UN JURADO propio decidira en cada momento 
que colaboraciones reunen los requisites adecuados 
para su publicacion, y evaluara la cuantia del pre- 
mio en metalico al que se hagan acreedoras. 

No olvideis indicar claramente para que ordena- 
dor esta preparado el material, asi como vuestro 



nombre y direccion y, cuando sea posible, un tele- 
fono de contacto. Entre todos los trabajos recibidos 
durante los proximos tres meses SORTEARE- 
MOS: 

• Un premio de 50.000 ptas. 

• Un premio de 25.000 ptas. 

• Un premio de 10.000 ptas. 

en material microinformatico a elegir por 
los afortunados. 

iNo OS desanimeis!, por muy simples o complejas 
que puedan parecer vuestras ideas, todas estan re- 
visadas con el maximo interes. 

INPUT COMMODORE 

Aribau, 185. Planta 1." 
D8021 BARCELONA 



NOTA: INPUT no se rcspotisabiliza de la devolucion del ma- 
terial que no vaya acompanado por uti sobre adecuado con el 
-franqueo correspondiente. 
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Dibujos en alta resolucion, precisos, 
limpios, faciles de realizar con solo mo- 
ver un dedo: esto es lo que ofrece el CAD 
(Computer Aided Design: diseno asistido 
por ordenador). 

Con el listado que te presentamos, no 
tienes necesidad de otros programas 
para obtener atractivos graficos con ab- 
soluta facilidad. 

Con un software adecuado, las ca- 
pacidades graficas de tu ordenador 
pueden brindarte una nueva y pode- 
rosa herramienta de dibujo. No im- 
porta si eres un experto en dibujo o 
mas bien un especialista en garabatos, 
lo importante es que con el listado que 
aqui te presentamos, tu puedes usar tu 
ordenador con la misma (e incluso ma- 
yor) soltura y facilidad que el lapiz y 
el papel. 

EL ORDENADOR: UN UTENSILIO 
DE TRABAJO 

En la industria, el software CAD 
(Computer Aided Design) para main- 
frames (grandes ordenadores) permite 
asus usuarios dibujar un objeto con 
todo detalle y simular las respuestas 
de un determinado diseiio a ciertos 
condicionantes como, por ejemplo, el 
peso de la estructura, el viento, la vi- 
bracion o los cambios de temperatura. 
Es obvio que tales prestaciones supe- 
ran la capacidad de un ordenador do- 
mestico, pues requieren tanto el pro- 
cesamiento de una enorme cantidad 
de datos como una refinada capacidad 
grafica para producir distintas vistas 
del objeto y realizar calculos y ope- 
raciones. 

Pero es frecuente que un delineante 
o diseiiador solo necesite estudiar o 
bien un detalle o el aspecto general de 
la representacion visual. En este as- 
pecto, el CAD se convierte en un ins- 
trumento que sustituye papel y lapiz 
en el dibujo tecnico, garantizando el 



trazado perfecto de curvas, rectas y fi- 
guras geometricas, con la permanente 
posibilidad de su correccion o borrado 
instantaneo. 

Este aspecto del CAD si que pue- 
de aplicarse a los microordenadores, 
tanto si te sientes interesado en los as- 
pectos tecnicos del dibujo, como si te 
limitas a realizar pinitos de aficionado. 
Si bien todos los micros (salvo los 
Commodore) presentan ya sus man- 
dates de dibujos como parte de su 
BASIC habitual, elaborar un dibujo 
detallado requiere muchas Iineas de 
programa. 

VENTAJAS DEL PROGRAMA 

Lo bueno de este programa de di- 
bujo es que una vez entrado, te per- 
mite dibujar lo que desees dentro de 
las posibilidades graficas de tu orde- 
nador, sin necesidad de recurrir a ul- 
teriores programas. Te coloca todos 
los mandates de dibujo bajo un sen- 
cillo y directo control de teclas, de tal 
modo que lo iinico que has de hacer es 
seleccionar la opcion o mover el cur- 
sor mediante las teclas de flechas. En 
algunos casos, el programa ofrece 
mandates que no se incluyen en el 
BASIC estandar de tu maquina, 

Puesto que las posibilidades graficas 
de los distintos ordenadores oscilan 
bastante de uno a otro, es natural que 
los programas especificos se diferen- 
cien en gran medida, y que cada uno 
intente sacar el mayor provecho de su 
potencia, minimizando los puntos de- 
biles. Asi, por ejemplo, algunos mi- 
cros pueden visualizar con facilidad 
texto y graficos en una misma pantalla 
mientras que otros no lo pueden ha- 
cer. Asi tambien pueden almacenar en 
varias «pantallas», distinta informa- 
cion de la que actualmente se esta 
viendo, mientras que otros solo pue- 
den disponer de unas cuantas panta- 
Uas, 



Los poseedores de Commodore de- 
beis introducir antes el programa para 
graficos SIMONS BASIC. 

AYUDAS PARA EL DIBUJO 

A pesar dc las diferencias especifi- 
cas, el programa tiene el mismo fun- 
cionamiento en todos los ordenado- 
res. Al usuario se le ofrece un menu o 
lista de opciones para dibujar, ya sean 
Imeas, elipses, circulos o rectangulos. 
Seleccionando una de ellas y colo- 
cando el cursor mediante las teclas de 
flechas en la posicidn deseada, puedes 
crear dibujos realmente espectacula- 
res, con la garantia extra de que todas 
tus lineas seran del todo rectas y tus 
curvas perfectamente lisas. Y si te 
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EN UN UTENSILIO DE DIBUJO 

CQMO AMPLIAR LOS MANDATOS 

DE GRAFICOS INCORPQRADQS 

EMPLEO DEL PROGRAMA 



Aplicaciones 



,!«■ 



CQMO DIBUJAR ESBOZOS 
Y DISENAR A PULSO 

QPCION LINE: EL 

TRAZADD PERFECTO 
EMPLEO DEL COLOR 



equivocas, algunos ordenadores te 
conceden Ja merced de Liorrarlo todo 
y volver a empezar. 

Otras opciones permiten cambiar cl 
color del dibujo, o rcllcnar areas con 
los colores de la paleta que desees. Y 
una vez concluida la obra de arte, tu 
puedes optar o bien por guardarla 
(SAVE) para futuros retoqucs, o bien 
hacerla desapareccr y comenz.ur de 
nuevo. 

Esta misma facilidad le permite car- 
gar (LOAD) incluso una figura que no 
fue dibujada con el prcsenle pro- 
grama. 

Por ejemplo, se puede tomar la pa- 
gina del titulo de un trabajo y modi- 
ficarla a tu entera volunlad con nuevos 
dibujos. 



EMPLEO DEL PROGRAMA 

El iistado se divide en dos partes. 
La primera parte esta disenada de tal 
forma que funciona con independen- 
cia de la segunda, y te permitira crear 
dibujos lineales como los que te mos- 
tramos. 

Pero solo mas tardc afiadimos al- 
gunas de las opciones mas sofisticadas 
de! mentj. 

Al hacer funcionar el programa 
(RUN) aparece el cursor parpadeante 
en el centro de la pantalla. Para des- 
plazarlo a donde desees, debes em- 
plear las teclas de control del cursor. 
Pulsa D para seleccionar el modo 
Draw, y despues escoge cl color en 
que quieres dibujar, pulsando una te- 




cla entre 1 (el fondo) y 4. Ahora pue- 
des dibujar en cualquier direccion, 
pulsando las teclas de cursor. Para 
«colgar» el cursor temporalmente, 
pulsa 5 (aparecen los hordes grises) y 
asi puedes utilizar el cursor sin dibu-. 
jar. Para hacer que dibujc dc nucvo, 
pulsa la tecla de flecha que este en el 
angulo superior izquierdo del teciado 
para fijar la posicion de inicio. Esta te- 
cla tjene la misma funcion en cual- 
quier modo de dibujo. Seguidamente, 
escoge un color (del 1 al 4) y sigue di- 
bujando mediante las teclas del cur- 
sor. Para abandonar cualquiera de los 
modos de dibujo, pulsa *, que pro- 
duce el mismo efecto que si seleccio- 
naras Move. 

PARA ACELERAR EL CURSOR 

Puedes acelerar el movimiento del 
cursor pulsando una tecla entre 6 (ve- 
locidad normal) y el 9 (maxima velo- 
cidad). 

Esta facilidad se emplea cuando 
queremos acelerar el trabajo, pero no 
podcmos llegar con el dibujo hasta los 
limites de la pantalla cuando se usa 
una velocidad superior. 

Para seleccionar Line pulsa primero 
* para abandonar el modo en que es- 
tas, lleva despues el cursor hasta el ini- 
cio de la futura linea y pulsa L (de 
Line): ahora solo tienes que trasladar 
el cursor hasta el final de la linea. Se- 
giin vas moviendo el cursor, la linea 
queda parpadeante desde su inicio 
hasta el punto actual del cursor, pero 
desaparece cuando este cesa de mo- 
verse. Si deseas saber por dondc pasa 
la Imea, puedes hacer que parpadee 
de nuevo apretando la barra espacia- 
dora. Para fijar la linea, selecciona un 
color y despues aprieta la barra espa- 
ciadora. Pero solo debes escoger el co- 
lor cuando estas seguro de que esa li- 
nea o figura satisface tus deseos. Pue- 
des pulsar de nuevo 5 para colocar el 
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cursor en una siguiente posicion de 
inicio y fijar despues este inicio put- 
sando la tecla de flecha. Si escoges 
ahora una velocidad superior (per 
ejemplo, la tecla 8), el cursor puede 
moverse con mayor rapidez hasta 
cualquier posicion final y dibujar mu- 
cho mas pronto la linea deseada: a pa- 

SOS". . . 

Este programa contiene una seccion 
en codigo maquina, per tanto deberas 



guardarlo (SAVE) antes de ejecutarlo 
(RUN), para una completa seguridad. 
Cualquier error producira un caos en 
el programa, y si no lo tienes guarda- 
do en cinta o disco, tendras que vol- 
verlo a copiar, cosa que a muy pocos 
agrada. 

UN PROGRAMA MAS POTENTE 

El programa de Diseno Asistido por 



Ordenador (CAD: Computer Aided 
Design) muestra como puedes contro- 
lar mediante el teclado la potencia en 
graficos de tu ordenador, al tiempo 
que te permite trazar disenos extre- 
madamente refinados, Pero faltan to- 
davia bastantes funciones si queremos 
dotar el programa de su potencial mas 
completo. Falta, sobre todo, la posi- 
bilidad do colorear areas. Habras visto 
cstas opciones adicionales en el memi, 
pero hasta ahora no habras podido ac- 
ceder a ellas. 

Carga (LOAD) c! programa ante- 
rior, y ariadcle ahora las lineas que 
aqui damos. 

La primera parte de este programa 
incluia la facihdad Draw, con opciones 
del paso, para dibujar polfgonos tales 
como el triangulo, el rectiingulo y el 
pentagono. Pero ahora puedes obte- 
ner estas figuras lineales mas facil- 
mente con Line. Para dibujar un ttian- 
gulo, por ejemplo, desplaza el cursor 
hasta donde descas que este uno de los 
angulos y pulsa L. Despues, mueve el 
cursor hasta la segunda esquina, selec- 
ciona el color del dibujo y pulsa la ba- 
rra espaciadora. 

Sin desplazar el cursor, pulsa de 
nuevo L para fijar cl inicio de la si- 
guiente linca y despues traslada aquel 
a la tercera esquina. Selecciona un co- 
lor y fija la linea antes, ahora dibuja 
la tercera linea. 

La linea parpadea segun mueves el 
cursor (mientras no sclccciones el co- 
lor), por lo que es sencillo determinar 
el tamafio y la figura del triangulo, o 
de cualquier poligono. 

La opcion Circle se obtiene me- 
diante C. Desplazate hasta dondc de- 
sees el centre del futuro circulo y pulsa 
C. Mueve ahora el cursor hasta un 
punto de la circunferencia de este cir- 
culo (solo puedes moverte vertical u 
horizontalmente). Con e! tamano del 
circulo a tu gusto, selecciona el color 
de este y pulsa, a continuacion, la ba- 
rra espaciadora. 

Si tienes practica con el mandato 
CIRCLE de los Commodore, no te 
sorprendera el hecho de que la figura 
no sea circular, sino eliptica. En rea- 
lidad, para dibujar verdaderos circulos 
y verdaderas elipses tienes que usar 
Ellipse. Muevete hasta el centro de la 
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elipse (el punto de encuentro de los 
dos ejes) y pulsa E. Ale j ate de este 
punto de modo que su distancia ver- 
tical respecto del cursor equivalga a la 
mitad de un eje, y su distancia hori- 
zontal la mitad del otro. Selecciona 
ahora un color y pulsa la barra para 
dibujar la elipse. Despues de algunos 
intentos podras determinar la longitud 
de cada eje de modo que lo que ob- 
tengas sea una elipsis o un circulo. 

Pucde que te cueste un poco al prin- 
cipio la especificacion del tamano de 
la elipse. Supongamos que dcseas una 
elipse de 150 mm de longitud por 100 
mm de altura. Coloca el cursor a una 
distancia del centre que represente la 
mitad de la longitud de cada uno de 
estos ejes, 75 mm a la izquicrda (o a 
la derecha) y 50 mm para arriba (o 
para abajo). 

Las lineas Radial acompafian per- 
fectamente a Circle o Ellipse. Dibuja 
un circulo o una elipse y despues vete 
al centre para pulsar seguidamente R. 



Muevete ahora al punto de la circun- 
ferencia que quieras, selecciona un co- 
lor y pulsa la barra espaciadora para 
fijar el radio (linea entre el centro y la 
posicion del cursor). Sin tener que vol- 
ver al centro puedes fijar tantos radios 
como dcsees. 

La ultima figura de este programa 
es Block, que dibuja un rcctangulo re- 
lleno. Coioca el cursor en cualquier 
punto de la pantalla y pulsa B para re- 
llenar una esquina del bloque. Lleva el 
cursor a otro punto que determine la 
esquina diagonalmente opuesta, selec- 
ciona un color y pulsa la barra. 

Si deseas colorear cualquier cspacio 
cerrado de la pantalla, emplea Paint. 
Vete a un punto dentro del espacio ce- 
rrado, selecciona un color y pulsa P 
para colorear el espacio. 

Tampoco es dificil poner textos a tu 
dibujo. Mueve el cursor hasta donde 
deseas emplazar un caractcr y pulsa T, 
y teclea el caracter. Se imprimira en el 
color inverso al de la pantalla. Repite 



la operacion para los demas caracte- 
res. 

Tienes toda una baraja de opciones 
para corregir errores. Un metodo es 
pulsar SHIFT y CLR/HOME a la vez, 
con lo que se limpiara la pantalla y 
puedes empczar dc nuevo. Otro me- 
todo menos drastico consiste en borrar 
un area de la pantalla, mediante Block 
con el color de fondo. Y para borrar 
areas muy pequehas (supongamos, 
una Itnea o un punto) emplea Draw 
con el color de fondo. 

Un metodo mas poderoso de corre- 
gir errores consiste en pulsar la tecla 
fl mientras se dibuja. Con ello se co- 
pia la imagen que se tiene en una sec- 
cion de la raemoria. Si te equivocas o 
no te gusta lo que has dibujado desde 
que pulsaste fl, pulsa f3 para llamar la 
anterior pantalla que almacenaste. Si 
usas el programa por primera vez, 
pulsa la tecla fl para prcparar el area 
de memoria que albergara la imagen. 

Pulsa fl y despues 15 para guardar 
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(SAVE) el dibujo hecho en cinta o 150 
disco. Para usar esta facilidad pQlsa la 
tec! a y rcsponde las indicaciones que 
aparezcan en pantalla. Al prcguntarte 
por cl nonibre del archivo, puedes 
abandonar esta rutina del guardado 
pulsando RETURN. 

Para cargar (LOAD) una imagen 
desde un disco o cinta, pulsa f7 y res- 
ponde las indicaciones. Tras la carga, ' 210 
pulsa f3 para traer el dibujo a la pan- 
talla. 



/10 POKE 51,255:POKE 52, 

94:P0KE 55,255:P0KE 56, 
94:CLR 
20 IF FG = 1 THEN130 
. 30 FOR Z = 24320TO 

24431:READ X:POKE Z, 
X:NEXTZ:FG-1 
40 DATA 169,0,141,14,220, 

169,53,133,1 
50 DATA 169,0,133,251,133, 
253,169,224,133,252,169, 
95,133,254,160,0 
60 DATA 177,251,145,253, 
192,63,208,16,165,252, 
201,255,208,10 
70 DATA 152,1,142,14,220, 

162,55,134,1,96,200 
80 DATA 208,229,230,252, 

230,254,76,25,95 
90 DATA 165,45,133,253,165, 

46,133,254 
100 DATA 162,8,160,1,169,1, 
32,186,255,162,113,160, 
95,173,112,95 
110 DATA 32,189,255,169,0, 
133,251,169,96,133,252, 
162,0,160,128,169,251 
120 DATA 32,216,255,155, 
253,133,45,165,254,133, 
46,96 
130 HIRES 0,1:C(0)=1:C(1) = 2: 
C(2) = 5:C(3) = 6: 

C(4) = 12:MULTI C(1),C(2), 
C(3) 

140 X = 80:Y=100:SP=l:CO-4; 

F=0:GOTO 450 
150 GET A$:FOR Z=l TO 2:TEXT 

X,Y,"[SH(FT+M]",4,1, 

1:NEXTZ:IF A$ = "" 

THEN150 






160 IF A$ = 'TSHIFT+CLR/ 


24320:RETURN 


HOME]" THENPRINT 


530 POKE 24346, 253:P0KE 


"[SHIFT + CLR/HOME]":NRM 


24348, 251:SYS 


:HIRES 0,1:MULTI 0(1), 


24320:RETURN 


C(2),C(3):P0KE 


170 IF A$-CHR$(135) 


198,0 


THEN540 


''200 IF F-0 THENCO 


180 IF A$ = CHR$(1£6) 


-4 


THEN590 \^ 


, 210 IFA$-"^" 


190 IFC0<4 AND A$^B" 


THENXX=X:YY-Y 


THENPAINTX,Y+l,CgV 


220 IF A$='TCRSR IZQDA.]" 


■-■'260 1FA$ = "R" 


ANDX-SP>0 


THENF = 6:XX-X:YY-Y '^ 


THENX=X-SP 


\''270 IFVAL(A$)>0 AND 


230 IF A$ = "[CRSR DOHA.]" 


•4 VAL(A$)<6 


ANDX + SP<159 


\ THENC0-VAL{A$) 


THENX-X+SP 


-1 


/240 IF A$-"[CRSR ARRIBA]" 


■ 280 IFC0<4 AND F = 6 


.■ ANDY-SP>0 


THENLINEXX,YY,X,Y, 


THENY=Y-SP 


C0:C0-4 


■*'250 IFA$ = "[CRSR ABAJO]" 


290 1FVAL(A$)>5 AND 


AND Y + SP<198 


VAL(A$)<10 


THENY=Y+SP 


THENSP=(VAL(A$)-6)*5 + 


270 IFVAL(A$)>0 AND 


1 


VAL(A$)<6 


'-'300 IFA$ = "B" 


THENC0-VAL(A$)-1 


THENXX-X:YY-Y:F-1:C0 = 


'290 IFVAL(A$)>5 AND 


4 


VAL(A$)<10 


•310 IF(F>0 AND F<5) OR F=6 


THENSP=CVAL(A$)-6)*6 + l 


THENFOR Z=l TO 2:LINE 


' 310 IF(F>0 AND F<5) OR F-6 


XX,YY,X,Y,4:NEXTZ 


THENFOR Z=l TO 2:LINE 


^320 IF(F=1 AND A$-" ") AND 


XX,YY,X,Y,4:NEXTZ 


C0<5 THENGOSUB 490 


350 IFA$ = "L" 


^330 IFA$-"F" 


THENXX = X:YY=Y:F-3:CO-4 


THENXX-X:YY=Y:F=2:C0 = 


/ 360 IF(F-3 AND A$ = " ") 


4 


AND C0<4 THENLINEXX, 


340 IF(F-2 AND A$-" ") AND 


YY,X,Y,CO:F-0 


C0<4THENCIRCLEXX,YY, 


■390 IFA$="D" 


ABS(X~XX),ABS(Y-YY), 


THENF-5:XX=X:YY 


CO:F=0 


=Y 


)350 IFA$-"L" 


400 IFF=5 ANDC0<4 


"> THENXX-X:YY-Y:F-3:C0-^ 


THENLINEXX,YY,X,Y, 


■- 4 


C0:XX-X:YY=Y 


^360 IF (F=3 AND A$=" ") AND 


•440 IF A$-"^"THENF 


C0<4THENLINE XX,YY,X,Y,, 


= ■ • 


CO:F = 


'■450 COLOUR C(C0),1 


^370 IFA$-"C" 


460 IFA$ = CHR$(133) 


THENXX=X:YY=Y:F=4:C0 = 


THENGOSUB 520 


/ ^ 

^380 IF(F=4 AND A$ = " ") AND 


470 IF A$-CHR$(134) 


THENGOSUB 530 


C0<4THENCIRCLEXX,YY, 


' 480 GOTO 150 


ABS(X-XX),ABS(X-XX), 


/520 POKE 24346,251 ;POKE 


CO:F=0 


24348, 253:SYS 


390 IFA$ = "D" 
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v^ 



Aplicaciones 




INPBJTT 45 









v-' 


r 


■ THENF-5:XX-X:YY=Y 


520 


400 IF F-5 AND C0<4 




THENLINE XX,YY,X,Y,CO: 


\\ 


. XX-X:YY = Y 


530 


410 IF A$<>"T" THEN440 


---, 


420 GET A$:IF A$ = "" THEN 




420 


. 540 


430 TEXT X,Y,A$, 4,1,1 




440 IF A$ = "^" THENF=0 




450 COLOUR C(C0),1 




460 IF A$ = CHR$C133) 




THENGOSUB 520 




470 IF A$=CHR$(134) 


/ 545 


THENGOSUB 530 




480 GOTO 150 




490 IF YY>YTHENYT=YY: 




YT=YY-ABS(YY-Y):Y- 


.'550 


YT 




500 IFXX>XTHENXT-XX: 


,, 560 


XX=XX-ABS(XX-X):X- 




XT 


570 


510 BLOCKXX,YY,X,Y,CO:F=0: 




C0 = 4:RETURN 





Aplicociones 



POKE 24346, 251:POKE 


NEXT 


24348, 253:SYS 


580 SYS 24379:G0T0 130 


24320:RETURN 


590 NRM :PRINT 'TSHIFT+CLR/ 


POKE 24346, 253:P0KE 


H0ME][CTRL+9][ 9 


24348,251:SYS 


ESPACIOS]RECUPERAR[ 2 


24320:RETURN 


ESPACI0S]DIBUJ0[ 14 


NRM :PRINT "[SHIFT + CLR/ 


ESPACIOS][CTRL+0]": 


H0ME][CTRL+9][ 10 


NM$="" 


ESPACIOS]GUARDAR[ 2 


595 INPUT 'T4*CRSR 


ESPACIOS]DIBUJO[ 15 


ABAJOIENTRAR NOMBRE 


ESPACIOS][CTRL+0]": 


FICHERO";NM$:IF NM$ = "" 


NM$-"" 


THEN130 


INPUT 'T4*CRSR 


600 GOSUB 610:LOAD NM$,DV, 


ABAJOIENTRAR NOMBRE 


LEND 


FICHERO";NM$:IF NM$ = "" 


,- 610 IN$-"":1NPUT 


THEN130 


"[SHIFT+CLR/HOMEICINTA 


GOSUB 610:IF IN$="D" 


DISCO -C/D-";IN$ 


THENNM$-"@0:" + NM$ 


620 IF IN$ = "D" 


POKE 24432, 


THENDV-8:RETURN 


LEN(NM$):POKE 24388, DV 


630 IF IN$-"C" 


F0RZ=1 TO 


THENDV=1: 


LEN(NM$):POKE 24432 + Z, 


RETURN 


ASC(MID$(NM$,Z,1)): 


540 GOTO 610 



GANADORES DE LOS MEJORES DE INPUT COMMODORE 


En el sortea correspondiente a! numero 18 entre quienes escribisteis 


mandando vuestros votos a LOS 


MEJORES DE INPUT han resultado ganadores: 


NOMBRE 


LOCALIDAD 


JUEGO ELEGIDO 


JOSE J. MUNOZ ROMERO 


Barcelona 


TWO ON TWO 


ALFONSO RIBOTE VALLEJO 


S. Cruz de Tenerife 


FIST II 


GENARO GARCIA SINTES 


Mahbn (Baleares) 


URIDIUM 


ROQUE BALLESTEROS MADUENO 


Marbella (Malaga) 


EL CASO VERACRUZ 


CRISTINA MARTIN TORRES 


Paria (Madrid) 


FREAK FACTORY 


MOISES RAYA PEREZ 


La Orotava (S. Cruz de Tenerife) 


SUPER CYCLE 


RAMON FONOLL JUSTO 


Madrid 


TWO ON TWO 


JOSE MANUEL GONZALEZ VERGARA 


Aranjuez (Madrid) 


LABERINTO 


JOSE ANTONIO LAMA FALCON 


Sevilla 


TWO ON TWO 


MIGUEL ANGEL ISABEL MARTIN 


Vicalvaro (Madrid) 


INFILTRATOR 
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^.-f'**' 

..<,/ 







X 










#"--'f 




-^-""^ 



^^;K*^^ 



.^^^ff(ii&n^.-<-i., 






f 



V^-/^ 







j^iS«^'-'=****=t,.H 



"-'J'sst-a, 









'^.^ ^ 




















iB«as»i»(^, 








I^^ife''****'*''"''"' 



USTADOS 
COMPRENSIBLES 



Este programa esta pensado para ob- 
tener los listados de programas dc una 
forma tofalmente inteligible, de forma 
que los caracteres graficos esteii repre- 
sentados por lacombinacion de las teclas 
que es necesario pulsar para obtener di- 
cho grafico. Ademas ofrece algunas op- 
tiniizaciones en dicha representacion. 

Uno de los problemas que tienen 

planteados todos los ordenadores que 
poseen caracteres graficos en sus c6- 
digos ASCII ampliados, es el de tener 
que recurrir a las tablas de equivalen- 
cia para poder representarlos con una 
adecuada corabinacion dc iccias o 
bien en forma de CHR$(n). 

Todo esto se pone de manifiesto en 
la inayorl'a dc los programas que nc- 
cesitan alguna bonita presentacion en 
pantalla o bien en la mayoria de los 
juegos que utilizan ios caracteres gra- 
ficos . 

POStBILIDADES 

Al arrancar este programa aparece 
una cabecera con el titulo del pro- 
grama y un mensaje de espera que nos 
avisa que el ordenador esta prepa- 
rando unas tablas con los valores de 
conversion. A continuacion nos pide 
el periferico de salida por donde ob- 
tendremos el listado (PANTALLA o 
IMPRESORA) debiendo responder 
con una de las dos Ictras iniciales. 
Dcspucs de esto, nos invita a entrar el 
nombre del programa a listar en 
donde es posible usar todos los tipos 
de caracteres usados normalmente 
come mascaras o abreviaciones (@0:, 
*,?) y por ultimo nos pide el numero 
de lineas inicial y final que descamos 
listar. 



2 REM * * 120 

3 REM * PROGRAMA PARA 

HACER LOS 

4 REM * * 130 

5 REM * LISTADOS MAS 

COMPRENSIBLES. * 140 

6 REM * 

7 REM * POR J.M GILS 150 

MAR-1987 

8 REM * * 180 

10 DIM CH${255),TK$(75) 

20 NU$ = CHR$(0):CR$ = CHR$(13) 

30 PE-0:Z = 

40 PRINT "[SHIFT+CLR/ 

H0ME][CTRL+9][ 9 185 

ESPACIOSICONVERSOR DE 
LISTADOS[ 10 ESPACIOS]" 190 

50 PRINT "[ 6*CRSR 200 

ABAJOJESPERAR UN 
MOMENTO ..." 

60 REM *** LECTURA DE DATAS 205 

^ "t -^ 

70 FOR L = TO 

255:CH$(L)-CHR$(L): 210 

NEXT L 
80 FOR L=0TO 31:READ 

CH$(L):NEXT L 
90 FOR L = 96T0 127:READ 215 

CH${L):CH$(L + 96)-CH$(L) 
:NEXTL 220 

100 FOR L-128T0 159:READ 

CH$(L):NEXTL 225 

110 FOR L=160 TO 190:READ 
CH$(L):CH$(L+64) = CH$(L) 
:NEXT L 



READ 

CH$(191):CH$(255) = CH$ 

(126) 

FOR L=0 TO 75:READ 

TK$(L):NEXT L 

REM *** PRESENTACION 

PRINT "[CRSR ARRIBAK 26 

ESPACIOS][CRSR ARRIBA]" 

PRINT "[ 2*CRSR ABAJO] 

[CTRL+9] 

l[CTRL+0]MPRESORA- 

[CTRL + 9] 

P[CTRL + 0]ANTALLA[ 7 

ESPACIOS]"; 

GET SA$:IFSA$<>"[" AND 

SA$<>"P" THEN 185 

PRINT SA$ 

INPUT "[ 2*CRSR 

ABAJOINOMBRE DEL 

PROGRAMA";N$ 

LI$ = "":INPUT "[ 2*CRSR 

ABAJO]LINEA INICIAL"; 

LI$:LI=VAL(LI$) 

LF$-"63999":INPUT "[ 

2*CRSR ABAJOJLINEA 

F1NAL[ 2 ESPACIOS]"; 

LF$:LF=VAL{LF$) 

PRINT "[SHIFT-I-CLR/ 

HOME]" 

OPEN 15,8,15:OPEN 8, 

8,8,N$ + ",P,R" 

INPUT#15,EN,EM$,ET, 

ES:IF EN<>0THENPR(NT 



EL PROGRAMA 



1 REr 



:)i.^***7t + *AJr + AA** + + *+*'?t 




48 INPUT 



Programo«!f" 



PARAOBTENER 



ELPROGRAMA 



LISTADOS INTELIGIBLES 



CAMBIOS 



PROBLEMAS 



A REALIZAR 



QUE SE PRESENTAN 



PRUEBAS 



POSIBILIDADES 



EN,EM$:GOTO 10010 
240 IF SA$="i" THEN OPEN 4,4 
245 IFSA$ = "P" THEN OPEN 4, 

3 
250 GOSUB 1000:REM ''** 

BUSCA DfRECC DE CARGA 



A EFECTUAR 



260 IF LNO2049THENPRINT 

"ESTO NO ES UN 

PROGRAMA EN 

BASIC. ":GOTO 10000 
270 GOSUB 1000:IF LN=0 

THEN10000 
280 GOSUB ' 

1000:LN$ = STR$(LN) + " " 
290 IF LN<LI THEN GOSUB 

2000:GOTO 270 
300 IF LN>LFTHEN 10000 
350 GOSUB 1100:REM 

***BUSCA UN CARACTER 

■k •k -tc 

360 IF B>127 

THENA$(Z) = A$(Z) + TK$(B- 
128):G0T0 350 



370 IF B = 34THEN450 

380 IF B = THEN800 

390 A$(Z)=A$(Z) + B$:GOTO350 

450 A$(Z)=A${Z) + B$ 

460 GOSUB 1100 

470 IF {B<33) OR (B>95) 

THENC$ = B$:C=B:PE=1: 

GOTO 700 
480 IF B = 34' 

THENA$(Z) = A$(Z) + B$: 

GOTO 350 
490 IF B = THENGOTO 800 
500 GOTO 450 
700 GOSUB 1100 
710 IF B = C 

THENPE = PE+1;G0T0 700 
715 IFC = 32 THEN760 
720 IF PE=1 

THENA$(Z)-A$(Z)-"[" + 

CH$(C)+"]":G0T0 740 
730 A$(Z) = A$(Z) + "[" + 

STR$CPE) + "*" + CH$(C) + 

"]" 
740 PE=0:GOTO 470 ■ 
760 IF PE=1 

^HENA$(Z)-A$(Z)- 

":GOTO 780 
770 A$(Z) = A$(Z) + "[" + STR$ 

(PE} + " ESPACIOS]" 
780 GOTO 740- 
800 PRINT#4,LN$;A$(0); 

A${1);A$(2) 



810 A${0)-"":A$(1) = "":A$(2) 
= "":Z = 

820 GOTO 270 

1000 REM *** BUSCAR DIRECC 

DE CARGA Y NUM. DE 

LINEA SIGUIENTE *** 
1010 GET #8,L$:GET #8,H$; 

LN-ASC(L$ + NU$) + ASC 

(H$ + NU$)*256:RETURN 
1100 REM ^** LECTURA DE UN 

SOLO CARACTER ^** 
1110 GET +8, 

B$:B = ASC(B$ + NU$) 
1120 IF LEN(A$(Z))>240 

THENZ=Z+1 
1130 RETURN 
2000 REM *** SALTA UNA 

LINEA *** 
2010 GOSUB 1100:IF B<>0 

THEN2010 
2020 RETURN 
7000 REM *** CARACTERES 

ESPECIALES *** 
7010 DATA "NULL","!", "2", 

"3","4","CTRL+2","6", 




INPUT 49 



Programocjon 



"7"/'DIS.SHIFT-C=", 

"ENA.SHIFT-C-" 
7020 DATA "10", "1 1", "12", 

"CR","MIN./MAY.","15", 

"16","CRSR ABAJO", 

"CTRL+9" 
7030 DATA "CLR/HOME", "INST/ 

DEL", "21", "22", "23", 

"24", "25", "26", "27" 
7040 DATA "CTRL+3","CRSR 

DCHA.","CTRL + 6", 

"CTRL + 7" 
7200 DATA "SHIFT + ^", 

"SHIFT+A","SHIFT+B", 

"SHIFT+C","SHIFT + D", 

"SHIFT+E" 
7210 DATA "SHIFT+F", 

"SHIFT+G","SHIFT + H", 

"SHIFT+I","SHIFT+J", 

"SHIFT+K" 
7220 DATA "SHIFT+L", 

"SHIFT + M","SHIFT + N", 

"SHIFT + 0","SHIFT+P", 

"SHIFT + Q" 
7230 DATA "SHIFT+R", 

"SHIFT + S","SHIFT+T", 

"SHIFT+U","SHIFT+V", 

"SHIFT+W" 
7240 DATA "SHIFT+X", 

"SHIFT+Y","SHIFT + Z", 

"SHIFT+ +","COMM+ -", 

"SHIFT+ -" 
7250 DATA "SHIFT+ t ", 

"COMM+ *","" 
8000 DATA "COMM. + l", "","", 

"","Fr',"F3","F5","F7", 

"F2","F4","F6","F8" 
8010 DATA "SHIFT+CR", 

"MAY./GRAF.","", 

"CTRL+1", 

"CRSR ARRIBA", 

"CTRL+0" 
8020 DATA "SHIFT+CRL/ 

HOME","SHIFT+INST/ 

DEL","C0MM + 2", 

"C0MM+3","C0MM + 4" 
8030 DATA "COMIVI + 5", 

"C0MM+6","C0MM + 7", 

"C0MM+8","CTRL + 5", 

"CRSR IZQDA." 
8040 DATA "CTRL+8", 

"CTRL + 4", 



"SHIFT+ESPACIO" 

8100 DATA "COMM + K", 

"COMM + l","COMM+T", 
"COMM + @","COMM + G", 
"COMM+ +","COMM + M" 

8110 DATA "COMM + £", 

"SHIFT+E", "COMM + N", 
"COMM + Q","C0MM + D", 
"COMM+Z","COMM + S" 

8120 DATA."COMM + P", 

"COMM+A","COMM + E", 
"COMM + R","COMM + W", 
"COMM + H","COMM+J" 

8130 DATA "COMM + L", 

"COMM+Y","COMM + U", 
"COMM + 0","SHIFT + @", 
"COMM + F","COMM + C" 

8140 DATA "COMM + X", 

"COMM+V","COMM + B" 

9000 REM *** TOKENS *^* 

9010 DATA "END",'"FOR ", 
"NEXT ","DATA ", 
"INPUT#" 

9020 DATA "INPUT ","DIM ", 
"READ ","LET ","GOTO " 

9030 DATA "RUN", "IF ", 

"RESTORE", "GOSUB ", 
"RETURN" 

9040 DATA "REM", "STOP", "ON 
", "WAIT", "LOAD " 

9050 DATA "SAVE ", "VERIFY", 
"DEF ","POKE ", 
"PRINT*", "PRINT ", 
"CONT","LIST","CLR" 

9070 DATA "CMD ","SYS ", 

"OPEN ", "CLOSE ","GET 
","NEW","TAB("," TO ", 
"FN ","SPC(" 

9090 DATA " THEN"," NOT "," 

Q"rppJJ PPiH rf n jf ^ ft jf jj} 

7J ^ IP 

9100 DATA " AND "," OR ", 
">"/' = "/'<'7'SGN " 

9110 DATA "INT ","ABS", 
"USR","FRE","POS", 
"SQR","RND","LOG", 
"EXP", "COS", "SIN" 

9130 DATA "TAN","ATN", 

"PEEK","LEN","STR$", 
"VAL","ASC","CHR$", 
"LEFT$". "RIGHTS" 

9140 DATA "MIDI", "GO" 



10000 REM *** RUTINA DE 

SALIDA**'^ 
10005 PRINT#4:CL0SE 4 
10010 CLOSE 8:CL0SE 

15:PRINT "[ 7 

ESPACI0S][CTRL+9][ 5 

ESPACIOSIFIN DE 

IMPRESIONT 4 

ESPACIOS]":END 

En primer lugar se reserva espacio 
para dos tablas de datos (strings) que 
son CHS(255) y TK$(75) y que^son di- 
mensionadas en la linea 20 del pro- 
grama. 

La tabia CHS(255) almaccnara to- 
dos los caracteres ASCII correspon- 
dientes a los caracteres alfanumericos 
y ademas todas las traducciones de los 
caracteres especiales tales como mo- 
vimientos de cursor, cambios de color 
y todo el juego de caracteres graficos. 

La tabla TKS(75) almaccnara todas 
las traducciones correspondientes a las 
palabras reservadas del BASIC (to- 
kens). 

El hecho de llenar estas tablas con 
los valores adecuados se realiza por 
etapas (lineas 60 a 130) debido a la dis- 
tribucion un tanto anarquica de los 
sfmbolos especiales dentro del codigo 
ASCII. 

Despues sigue la presentacion del 
programa asi' como todos los datos ne- 
cesarios para obtener el Ustado. Esto 
puede observarse en las lineas 140 a 
215. 

Cuando ya hemos cntrado todos los 
datos, se dirige a la unidad dc discos, 
intenta localizar el programa y busca 
la dircccion de carga donde se alma- 
cena normalmcnte el programa. Esta 
es la direccion 2049 en decimal (0801 
hex). Si no es asi se entiendc que es 
un programa en lenguaje maquina y 
no permite el listado. La Icctura de la 
direccion inicial de carga se realiza en 
la subrutina que va de la linea 1000 
hasta 1010 y esta ademas se encargara 
de ir buscando donde empicza cada li- 
nea. 

Una de las primeras cosas a verificar 
es si el niimero de la linea del pro- 
grama que cstamos Icycndo se en- 
cuentra dentro de los limites entrados 
en las variables LI y LF. 



50 INPUT 



Progro^^!!®!; 



En el caso de que el niimero de li- 
nca leido sea inferior al numero de 
linea inicial, el programa entrara en 
un bucle de espera hasta que llegue la 
siguiente linea. Esto ocurrc en !a su- 
brutina situada en las lineas 2000 a 
2020. La lectura de caracteres se rea- 
liza en las lineas 1100 hasta 1130. 

Cuando ya sc ha encontrado la pri- 
mcra linea a listar el programa sigue 
por ia linea 350 y empieza una scrie de 
preguntas sobre los caracteres que va 
leyendo. Si el valor ASCII del caractcr 
entrado es superior a 127 nos indica 
que dicho caractcr representa una pa- 
labra reservada de BASIC (token), en 
cuyo caso se busca su Iraduccion en la 
tabla dc — tokens — . Otra cotnproba- 
cion es si el caracter entrado corres- 
ponde al codigo ASCII (34 decimal) 
dc las comillas dobles. En tal caso se 
entra en una rutina especial donde se 
comprueban !os caracteres de control 
de cursor, cambios dc color y carac- 
teres graficos. 

Esta rutina va de la linea 450 hasta 
la 500. Por ultimo mira si ha encon- 
trado el identificador de final de linea 
(00 decimal) en cuyo caso pasa a im- 
primir o visualizar la linea entrada gra- 
cias a la rutina situada entre las lineas 
800 a 820. 

En la rutina que descifra los carac- 
teres situados entre comillas, lineas 
450 hasta .500, cabe destacar el analisis 
y recuento de los espacios en bianco 
que aparecen, facilitando en gran me- 
dida la depuration del programa. 



T^or ultimo, cabe destacar la rutina 
de salida, encargada dc cerrar todos 
los Fichcros y de enviar un mensaje de 
fin de impresion por la pantalla. Esta 
se encuentra en las ultimas lineas del 
programa (1(1000 y 10010). 

CASVSBiOS A REALIZAR 

Si disponeinos dc un programa cuya 
direccion de carga no sea la normal 
para el ordenador (2049 decimal) es 
posible modi bear dicho valor en la li- 
nea 260 por el valor adecuado. 

Un cambio atractivo puedc ser la 
traduccion al castellano u otra lengua 
dc las palabras rescrvadas del BASIC. 
en cuyo caso deben modificarse los 
DATAS que se encuentran desde la 
linea 9000 hasta la 9140. 

PRUEBAS A EFECTUAR 

Antes de realizar un listado es con- 
veniente haccr unas pruebas de forma 
que nos verifique el programa y po- 
danios almacenario en lugar seguro 
para una nueva utilizacion. 

Una forma dc realizar esto puede 
ser la representada en el programa si- 
guiente. donde los caracteres se han 
obtenido pulsando alternativamente 
las teclas de SHIFT. COMMODORE 
,y CONTROL y el resto de los carac- 
teres alfanumericos del teclado. 

10 PRINT 

"1234567890 + -£[CLR/ 



A NUESTROS NUEVOS LECTORES 



En las paginas centrales de la revista encontraras la seccion 
«Programaci6n de juegos» que se compone de una serie de articu- 
los coleccionables que continuan mes tras mes. 

Como la paginacion de estos artfculos es slempre correlativa 
con la del mes anterior apreciaras que no se corresponde con la del 
resto de la revista, pudlendo parecer a los mas despistados que 
faltan paginas o que se trata de un error de encuadernaclon. 



HOME]" 

20 PRINT "!*$%&'()^[SHIFT+ 
+ ][SHIFT+ -][SHIFT+£] 
[SHIFT + CLR/HOME] 
[SHIFT+INST/DEL]" 

30 PRINT "[COMM.-Fl] 
[COMM + 2][COMM+3] 
[C0MM-F4][C0MM + 5] 
[COMM + 6J[COMM-l-7] 
[COMM + 8])0[COMM + 
+ ][COMM+ -][COMM + £]" 

40 PRINT "[CTRL+i][CTRL+2] 
[CTRL+3][CTRL + 4][CTRL + 5] 
[CTRL + 5][CTRL+7][CTRL + 81 
[CTRL+9][CTRL + 0]" 

50 PRINT "^^^[6]" 

1(30 PRINT "QWERTYU!OP(ai*t 
ASDFGHJKL:;-ZXCVBNM,./ 

I) 

110 PRINT "[SHIFT + Q] 
[SHIFT+W][SHIFT+E] 
[SHIFT+R][SHIFT+T] 
[SHIFT+Y1[SHIFT+U] 
[SHIFT+l][SHIFT+0] 
[SHIFT+P][SHIFT + @] 
[SHIFT+*][SHIFTT ^] 
[SHIFT+A][SHIFT + S] 
[SHIFT+D][SHIFT+F] 
[SHIFT+G][SHIFT+H] 
[SHIFT+J][SHIFT-fK] 
[SHIFT+L][]-[SHIFT+Z] 
[SHIFT+X][SHIFT+C] 
[SHIFT + VJ[SHIFT+B] 
[SH!FT+N][SH!FT+M]<>^" 

120 PRINT "[COMM + Q] 

[COMM + W][COMM + E] 
[COMM + R][COMM+T] 
[COMM+Y][COMM + U] 
[COMM + l][COMM-fO] 
[COMM + P][COMM + @] 
[COMM+ *][SHIFT+ t ] 
[COMM+A][COMM + S] 
[COMM + D][COMM + F] 
[COMM + G][COMM + H] 
[C0M!V1 + J][C0MM + K] 
[COMM + L][] = [COMM + Z] 
[COMM+X][COMM-FC] 
[COMM+V][COMM + B] 
[COMM + N] 
[COMM + M]<>?" 

130 PRINT " [ 

2*SHIFT+ESPACI0]" 
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LOS MEJORES 

DE IFiFUT 
COMMODORE 

PUESTO TITULO PORCEFiTAJE 

1.° Green Beret 16,1 % 

2.° Uridium 13,9% 

3,^ Commando 13,3 % 

4.^ Two on Two 1Z1% 

5.° Sky Fox 8,9 % 

6.° Rambo 8,1 % 

7.^ Dragon's Lair 8 % 

a"" Hard Ball 7,2 % 

9.^ FistlJ 6,5 % 

lO."" Infiltrator 5,9 % 

100,0 % 



Para la confeccion de esta relacion unicamente 
se han tenido en cuenta las uotaciones 
enuiadas por nuestros lectores de acuerdo con 
la seccion «LOS MEJORES mPUT». 

Abril de 1987 





EL ORIGINAL SOFTWARE 
DE LAS IMPRESORAS 



Mucho se ha escrito y se ha dicho so- 
bre las impresoras, su hardware, tipos 
y modclos posibles. Sin embargo, un 
aspecto sobre el que pocas veces se cen- 
tra la atencion es el del software que 
utillzan esas mismas impresoras. A es- 
te aspecto de la informatica, injusta- 
mente relegado a un segundo piano, 
csta dedicado este articulo. 

Efectivamente. vamos a hablar de 
programas para impresoras. Mas no 
penseis que se trata de programas nor- 
males. No: a lo largo dc cstas lineas 
vamos a conocer programas alipicos 
que, ademas de volcar correctamente 
tus textos o listados, son capaces de 
realizar tareas sorprendenles. 

Para cmpezar podemos destacar dos 
tipos de productos muy diferenciados; 
per una parte existen programas que 
permitcn un uso particular de las im- 
presoras; como vereis mas adelante, 
estamos hablando de cabeceras de car- 
tas, calendarios, etc. Per otra, existen 
algunos procesadores de textos que 
desarrollan caracteristicas poco usua- 
les con las impresoras (juegos dc 700 
caracteres difcrcntcs) y de los que ha- 
blarcmos en otra ocasion. 

Por orden de antigiiedad, tai vez de- 
beriamos empezar hablando del BAN- 
NER MACHINE, concretamcnte de 
su version ! . 1 . En este caso estamos 
ante un programa que se dirige cspe- 
cialmente a comcrciantes o personas 
interesadas en confeccionar carteles 
para llamar la atencion de clicntcs o 
personas interesadas en lo que ofre- 
ccn. Es un programa dedicado a la 
confeccion de BANDBRAS. 

Con este software se alcanzan me- 
didas capaces de satisfacer al mas exi- 
gcntc: seis metros de impresion sobre 
papel. A diferencia de muchos de los 
programas que le sigiiieron, este per- 
mite incluir varias lineas de texlo su- 
perpuestas y admite escritura tanto 
vertical como horizontal. Esta ultima 



opcion tambien ha desaparecido en los 
ultimos programas de cstc tipo que he- 
mos utilizado y testado en la redaccion 
de INPUT. 

Sus limitacioncs mas notables resi- 
dian en la reducida panoplia de cali 
grafias, aunque alguno de los modos, 
como cl TECH, ofrccia rcsultados 
muy interesantes. 

Sin duda, las sucesivas versiones de 
este programa han incluido notables 
mejoras. Concretamcnte, a partir de 
la version 3.3 se incorporan una serie 
dc aspectos que hacen de este pro- 
grama uno de los me j ores, si no el que 
mas, de los rciacionados con esta uli- 
lizacion especial de las impresoras. El 
programa te permite incluir ocho li- 
neas de texto en impresion vertical, 
con las que se pueden emplear ocho 
tamafios de letra difcrcntcs. En un 
mismo texto son combinables estos ti- 
pos dc forma que confecciones: una 
bandera en la que, por cjcmpio, una 
primera li'nea este escrita en tamano 4, 
simulando el ti'tulo o el encabcza- 
miento. mientras que las siguientes 
pueden ir a tamano 2, para el nucleo 
de la llamada. La ultima h'nca, a modo 
dc dcspedida o nota menos impor- 
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«BANNERMACHINE» 



«PRINTSHOP» 



CREACION DE TARJETAS 



«PRINT MASTER^ 



tante, puedc cscribirse en tamano 1. 

Asimismo, esta configuracion te 
permite haccr otra cosa mas: siluar la 
linea de texto en cl lugar que quieras 
en cualquier lugar de la hoja. Eviden- 
temente las lineas de tamaiio 8 no tic- ' 
nen mas que una posicion, pero no 
ocurre asi con los tamanos menores, 
que podras colocar y destacar rcspccto 
a las demas, sicmpre que no rebases la 
anchura de la hoja. 

Finalmentc, hemos de destacar que 
incorpora seis tipos de letras y que sus 
creadores han tenido la buena idea de 
hacer posible que se cscriban varias li- 
neas con diferentes caligrafias. Este 
detalle diferencia a este programa de 
todos los demas. Tambien hay inno- 
vacion en lo que se refiere a la posi- 
bilidad de configurar un teclado pro- 
pio, ademas de permitir la redefini- 
cion del con junto del alfabeto. 

Un detalle digno dc mencion es el 
copiador que se Integra con cl pro- 
grama y que salva los diferentes 
FONTS en un disco de destino para 
poder trabajar en ellos. 

Refiriendonos a los problcmas de 
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SETUP, hemos de decir que la lista 
mas completa de impresoras de la 
epoca sc hallaba ya en la version 1.1: 
MANNESMAN, PROWRITER, RI- 
TEMAN, PANASONIC, etc., ade- 
mas de admitir impresoras con inter- 
face tipo MW-302 y 350, CARDCO. 
TYMAC, GRAPPLER, etc. Un sur- 
tido que ya era impprtantc en la epoca 
de su creacion y que se ha ido com- 
pletando en las succsivas versiones. 

«PB8MT SHOP» 

PRINT SHOP constituyo un aeon 
tecimicnto cuando se lanzo al mer- 
cado. Se trataba de un pro grama que 
se promociono a bombo y platjUo y ve- 
nia avalado per la paternidad de una 
de las mas importantes casas de soft- 
ware del mundo: BRODERBUND, la 



casa de las trcs coronas. EI nombre de 
SHOP ya tenia un cierto carisma y 
prestigio entre los usuarios que ya co- 
nocian algunos programas como el 
MUSIC SHOP. 

El menu principal presenta las si- 
guientes opciones: confeccion de tar- 
jetas, carteles, cabeceras de caratulas, 
banderas, pantalla magica y setup. 

Aqm' se abre la posibilidad de con- 
feccionar muy diferentes tipos de tar- 
jetas. Al elegir esta opcion sc pasa a 
un nuevo menu en el que se eiige entre 
imprimir tarjctas ya preparadas y, por 
tanto, ya existentes, o bicn confeccio- 
nar una nueva tarjeta tii misnio. Com- 
poniendola antes de imprimirla, la tar- 
jeta se confecciona de la siguiente 
forma: se escoge entre nueve tipos de 




marcos diferentes que incluyen desde 
motives florales, corazoncs, pasando 
por estrellas, figuras geometricas, 
etc... Evidentemente puedes prescin- 
dir de marco alguno. Posteriormente 
podras decidir si quieres o no incor- 
porar en tu tarjeta un dibujo. El fondo 
grafico que se te ofrece alcanza la in- 
creible cifra de 600 dibujos, que po- 
dras elegir simplemente por su nom- 
bre o su numero de diseno. Tambien 
podras rescatar un dibujo antiguo 
desde el disco. 

Ejemplos curiosos de estos graficos 
son el simbolo medico, o c! del Ying- 
Yang, un ordcnador, el avion, una 
mano amenazadora, etc... Ademas de 
los dibujos que originalmentc incor- 
pora el programa del fabricante mu- 
chas casas comerciales se ban lanzado 
a crear bibliotecas de dibujos. En total 
son mas de 4.000 los graficos dispo- 
nibles que, juntos, ocuparian mas de 
15 discos. 

En la fase siguiente tienes que elegir 
el tipo de letra. El surtido que ofrece 
este programa es muy superior al del 
programa que comentamos anterior- 
mentc: RSVP, ALEXIA, NEWS, 
TECH, PARTY, BLOCK, TYPE- 
WRITER, STENCIL. Siempre existe 
la posibilidad de no utilizar ningun ti- 
po de letra. Asi puedes confeccionar 
una tarjeta con ocho tipos diferentes. 

El texto se puede imprimir en trcs 
modos: tridimensional, vacio y re- 
Ueno. Esta ultima opcion resulta muy 
interesante para una serie de letras 
como la NEWS o la TECH. 

Tambien dispone de un miniproce- 
sador de textos que te permitira que el 
texto quede automaticamcnte cen- 
trado sc alinee, a derecha e iz- 
quierda, de la tarjeta. 

Posiblemente la opeion mas utili- 
zada sea la opcion de cabeceras de car- 
tas, ideal para pequenas empresas que 
quieran enviar eomunicados originales 
a sus clientes a un precio razonablc. 
Sin duda muchos dc vosotros podriais 
utilizarlo en la organizacion de fiestas 
universitarias o para invitar a amigos 
o asociados de algun grupo. 

Finalmente, y pasando por la posi- 
bilidad de introducir los dibujos que 
antes hemos comentado como cabe- 
ceras, se presentan opciones como: di- 
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bujo centrado a la dcrccha, a la iz- 
quicrda, al centre, o bien tres repar- 
tidos, en intervalos iguales, en la linea 
superior. 

Gracias a esta ultima prestacion, 
podras realizar cabcccras de cartas 
muy flexibles, en series, a medida de 
tus necesidades. Tambien podras po- 
ner fondo a tus hojas o cartas, impri- 
iniendo dibujos difuminados y con 
suaves trazos. 

Aqui, al igual que en los cases co- 
mentados antes, eleccion de tipos de 
dibujos, tipos de letras en cualquiera 
de los tres modos, estan incluidos en 
la opcion BANNER. Esta permite 
confeccionar carteles con letras de 
hasta 17 ccntimetros de anchura y 
para leerlas correctamcnte tendras 
que situarte a una cierta distancia. 
Ideal para comcrciantes que quieran 
anunciar saldos y liquidaciones, para 
fiestas de cumpleanos y otros cventos 
que requieran anuncios llamativos. 

Estamos ya en la penultima opcion 
del programa. Aqui podras eiegir cn- 
tre dos tipos de CALEIDOSCOPIOS. 
Se trata de cstos instrumentos. utili- 
zados ya por nuestros abuelos, y que 
moviendose en torno a su eje generan 
y sugieren diferentcs figuras. El pro- 
grama se encarga de imprimir esas va- 
riadas formas. 

La segunda opcion de este pro- 
grama es, tal vez, mas practica que la 
anterior. Se trata de visualizar en pan- 
talla un segmento de texto con las le- 
tras de las que se dispone en el pro- 
grama en cualquiera de sus tres va- 
riantes. 

Esta opcion es, en realidad, de uti- 
lidad limitada, pero hara las delicias 
de los videoamateurs, que podran ha- 
cerse sus doblajes, comentarios, o prc- 
sentaciones de los videos como si va 







dispusieran de un equipo profesional. 

«PRINT MASTER» 

El PRINT MASTER es el ultimo 

programa que comentamos de esta se- 
rie sobre software para impresoras. 
En realidad se trata de una emuiacion 
del PRINT SHOP. La semejanza con 
este ultimo se percibe en el mismo es- 
quema de menus. 

Este esquema incluyc las siguierites 
opciones: GREETING CARDS, 
SIGN, STATIONARY, CALEN- 
DAR, BANNER, GRAPHIC EDI- 
TOR y SETUP. 

La primera opcion nos permite 
crear tarjetas de invitacidn, tarjetas a 
dos caras, con una biblioteca de gra- 



ficos bastante imponante. La venraja 
con respecto at PRINT SHOP es que 
aqui mediante la techi Commodore 
veras el grafico en una ventana que se 
abrira en la parte derecha de la pan- 
talla. 

En la mecanica de eleccion y opcio- 
nes todo sigue igual que en el caso del 
hermano mayor. Sin embargo, el si- 
guiente cam bio se advierte en el menu 
de letras: DEVILLE, ESCRIBE, OF- 
FICE, HAMPTON. TIMES, WES- 
TERN, UTOPIA, COMPUTER y !a 
consabida opcion de no test. 

La verdad es que aigurios tipos de 
estas letras son muy barrocos, pero, 
vistos globalmcnte, constiiuyen un ex- 
celente complemento de su hermano 
mavor. 




Se dispone de las letras en cuatro 
modos diferentes: RAIN, OUTLINE, 
3D y SOLID, que, en castellano. ca- 
racterizariamos como; solida pcro con 
poca prcsion de impacto de impre- 
sora, solo el conlorno, tridimensional 
y normal. 

Ouiza la opcion mas exotica sea la 
del calendario. En efecto, te permite 
confeccionar un calendario senalando 
fcchas con graficos, puedes realizar 
calendarios mensuales. anuales, en 
cuyo caso solo aparecen los meses del 
afio, o bien semanales, apareciendo 
entonces en linea y dejando sitio para 
escribir. 

Puedes hacer que el programa tc se- 
nale fechas concretas y te permite uti- 
lizar sus diversos tipos de letras para 
escribir notas o recordatorios. 

Por lo demas, este programa esta 
igual que el PRINT SHOP, del que 
constituye un excelente complemcnto. 

«NEWSROOM» 

Newsroom es el mas sofisticado de 
los pfogramas relacionados con las im- 
prcsoras. El mas coinpleto, extenso, 
trabajado, y, tambicn, versatil. 

Newsroom sirve para hacer rcvistas 
de universidad, para crear gacetillas, 
periodicos, etcetera. 

El programa te presenta 6 opciones: 
PHOTO LAB, PRESS, BANNERS, 
COPY DESK, LAYOUT y WIRE 
SERVICE. 

jVaya!, la primcra opcion sirve para 
crear la cabecera de la re vista. El pro- 
grama considera que Banner es la 
parte superior de la primera pagina dc 
la gacetilla de la que te acabas de con- 
vertir en creador. La parte superior dc 
la rcvista que tendra que llamar la 
atencion del que la vaya a adquirir: in- 
formarle de lo que trata, del numcro 
que cs... etcetera. 

Empezaremos por poner un poco de 
texto; dispones de tres tipos de letras 
de caja alta y de dos de baja (incluido 
el gotico). 

Despues de esto, puedes anadir un 
dibujito que llame mas la atencion: 
dispones de una biblioteca de mas de 
600, todos may diferentes de los pro- 
gramas precedentes. Junto con esta 
lista de dibujos dispones de un ampli- 

56 INPUT 




simo menu de dibujo que hara las de- 
licias de los amantes del garabato y 
que tc scrvira tanto para corregir 
como para aiiadir detalles a tu dibujo. 

El menii incluye las tfpicas opciones 
de line as, circulos, cajas, diez tipos de 
lapiz asi como un generador de 
FILLS, 10 tipos de fills disponibles, 
una goma de borrar, un spray, tres ti- 
pos de letras de caja alta y dos de caja 
baja. 

Este «MINI» menu te permitira 
aportar las alteraciones que estimes 
necesarias o bien realizar tii mismo al- 
giin elemento decorativo para alegrar 
esta tu primera pagina en tu nueva 
profesion de periodista. 

En cualquier caso, si lo que vas a 
editar es una revista de tipo asociacion 



de adictos al juego de arcadia, no te- 
mas: el programa te brinda la posibi- 
lidad de crear tu CLIP ART (en este 
caso seria evidentemente un JOYS- 
TICK) y de almacenarlo para no tener 
que repettr el trabajo. 

En la pantalla de creacion del ban- 
ner hay una serie de ICONOS de los 
cuales uno sera muy familiar a la ma- 
yoria de los lectores: una lupa. El 
menti de ampliacion del dibujo te per- 
mite corregir cualquier dctalle por pe- 
queno que sea. ya que en la parte in- 
ferior hay una miniventana en la que 
se representan a tamario normal las 
correcciones que estas realizando. 

En cualquier caso, si quieres borrar: 
el Lcono de la basura es muy represen- 
tative de lo que puedes hacer si tc lo 
propones. 
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Una vez realizada csla primera ca- 
beccra dc pcriodico, almacenala: el 
NEWSROOM esta preparado para 
ayudarte a crcar el resto de la pagina. 
Y he aqui una de las pcculiaridades de 
esle programa que tiene una marcada 
vocacion de creador de periodicos: la 
composicion del resto del programa se 
basa en un concepto que vamos a Ira- 
tar de haceros llegar del modo mas 
sencillo. Para este programa, una pa- 
gina de imprcsion consta de una serie 
de scgmentos independicntes: podras 
definir paginas con banner en la parte 
superior o sin banner; sea cual sea tu 
clcccion, el programa divide cl resto 
de la pagina en paneles (ver grafico 
nuiTiero 1). 

Ahora te toca crcar cada uno de es- 
tos PANELES. Tarea que empczaras 
acudiendo a la opcion de PHOTO 
LAB que tal y como su nombre indica 
es cl laboratorio donde vas a hacer las 
fotos. 

El programa, una vez mas, entiende 
el concepto de t'oto de un modo un 
tanto especial; una foto no corres- 
pondc al concepto de CLIP ART; de 
este mcKlo podras hacer una foto de un 
clip art con un comentario al pie. La 
operacion de lorn a de foto es reaP 
mente sencilla: torn as del menii un in- 
dicador que te permitira crear una 
caja que indica la zona que vas a fo- 
tografiar — lleva e! cursor al icono del 
aparato de fotos, y pulsa cl djsparador 
del joystick. Vaya con el programa, jsi 
hasta hay un destello del FLASH! 

Una vc/ realizada tan cuidadosa 



operacion puedes almaccnar tu foto, a 
la que evidentemente podras haber 
hecho (os rctoques que mencionamos 
antes. De hecho, si pretendcs crear 
una pagina completa de revista lo mc- 
jor es que hayas seleccionado previa- 
mente la lista de dibujos que aparecen 
en las instrucciones, ya que tras haber 
hecho las fotos correspondientes a 
loda la pagina, y almacenarlas, puedes 
ir corricndo al menu principal a cargar 
la opcion de COPY DESK en la que 
debcras. con ayuda de un procesador 
de texto, escribir el texto fruto de tus 
inspiraciones. 

El procesador tiene las minimas y 
mas necesarias funciones: inscrcion de 
li'nea, biisqueda dc palabras, mayiis- 
cuias, copia y desplazamicnto de seg- 
mcntos de texto asi como posiciona- 
miento muy exacto del Icxto. 

En cualquicr case sigucs dispo- 
nicndo del menu de letras al que ha- 
ci'amos referencia en la opcion de Ban- 
ner, pero que seran mas pequefias una 
vez impresas en esta opcion. 

Una vez escrito el te.xto llega el mo- 
mento de posicionar la foto; cogela 
con la mano, llevala al PANEL, 
prueba a ver que tal queda en la parte 
derecha del panel, «iNO... mejor a la 
izquierda!». Pincha de nuevo la mano, 
licvala a la izquierda y valida tu clec- 
cion, y sobre todo no te preocupes por 
el texto: este programa es muy listo y 
se formateara automaticamcnte en 
funcion dc la nueva situacion de la 
hoja. jincreible! Podras hacer varias 




pruebas hasta estar convencido de 
como qucda la hoja. 

LJna vez acabada de colocar la foto 
ya esta listo tu primer panel: «CON- 
GRATULATIONS!!», como dirian' 
los ingleses. Ya ves que no era tan di- 
ficil crear tu primera pagina de revista. 

Ha/- asi con seis, ocho o bien 10 pa- 
neles mas, segiin la longitud de hoja 
de que dispones. Llega entonces el 
mom en to dc ir a la opcion LAYOUT 
del menu principal. Aquf deberas 
componer la pagina y asignar a cada 
segmento de la hoja su PANNEL. 

Tras haber compuesto; almacena la 
hoja por fin acabada. 

En principio quedarian aqui las co- 
sas si no hubiese otra opcion: la de 
WIRE SERVICE rcalmente curiosa 
en este tipo de programas: un pro- 
grama de mancjo de modems que te 
permitira transmitir tus noticias al 
mundo entero. Aqui te aparecera un 
menu completo de SETUP de MO- 
DEMS, orden de transmision, y de re- 
cepcion de datos. 

Otro de los menus que no se pueden 
dejar de comentar es el de impresidn, 
en el que es de resaltar la mas fabulosa 
lista dc opciones de impresoras jamas 
vista por ojos humanos en estos pa- 
rajcs; incluye desde las tipicas STAR, 
EPSON, etc., hasta las mas desco- 
nocidas PANASONIC y las mas pe- 
quefias de la NEC, CANON, etc., 
realmente impresionante. 

Por si ya fuera poco, el programa in- 
cluye un menu muy importante titu- 
lado; «iC6MO CREAR UN NEWS- 
PAPER !» 

Viendo esto uno no pucde hacer 
menos que inclinarsc ante esta mini- 
guia de como convertirse en un editor. 
Viene cxplicado desde aspectos tan 
importantes como; «ORGANlZAR el 
STAFF: editor, rcporteros, coopera- 
dores, corrcctores, etc., hasta el dis- 
tribuidor...» COMO ENCONTRAR 
temas «...», CRITERIOS DE SE- 
LECCION DE SECCIONES «...», 
COMO HACER ENTRE VISTAS 
«...», COMO ORGANIZAR LAS 
NOTICIAS EN LAS PAGINAS, 
etc. Realmente si alguno permanece 
insensible ante estas maravillas ya 
puede tirar la impresora, o bien es que 
no ia tiene claro. 
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SHERLOCK HOLMES 

Vaya con Sherlock Holmes, hay que 
vcr que eneigia: tras hi aventura que 
paso hacc poco vuelve a las andadas 
con el equipo de IMAGIC que acaba 
de lanzar otra que sin duda hara las 
dclicias de aquellos a los que la 
primera sc les quedo un poco 
pequena. Esta vez Sherlock acaba en 
tierras de la India y ha de investigar 
unos mistcriosos asesinatos con 
flechas envencnadas, encantadores 
de serpientes y todo el panorama de 
aquellas misteriosas tierras. 



entrenamiento te sera muy sencillo 
(haciendolos muy debikichos). 
Veras mas adelante que la inmensa 
varicdad de oponentes, cada uno con 
un determinado nivel de juego, hace 
de este juego una autcntica 
maravilla. 

FLEXIDRAW REFORIVIED 

FLEXIDRAW ha sido sicmprc el 
rey de los programas que manejan 
lapiz optico y drive: desde hace tres 
ahos van saliendo rcvisiones 
periodicas cada seis meses. Esla vez 




Save for General Ryan's drunken 
uni>ieasantness^ cruising aboard t:he 
Destiny was lovely^ tws skies sunny at 
Say and sprinkled with stars at f^^enzn^. 
Whilst the »oon left a traii of lisht 
across the Hoody black sea, ^^^^,^ ^ 

It was on the second mght that a 
rapping upon our stateroow door awakened 
us. i was certain it was three iQ J:*»f^ 
worning, for I heard six bells. Holwes^ 
in his grey dressing gown^ opene<l th# 
door t 

"Could you co»e qyick. Sir?" a cr#%#- 



CHAMPIONSHIP BOXING 

Esla nueva version de boxeo 
contempla una gran varicdad de 
contrincantes: incluso cabe el juego 
contra un canguro. 
Puedes crear parte de las 
caracteristicas dc tus contrincantes y 
por lo tanfo en un principio el 




se incluycn en los tres discos un 

editor de miisica y Giro de sprites 

con animacion. Este innovudor 

programa de «dibu)0 flexible 

reformado» constituye, sin ninguna 

duda, una 

herramicnla 

ideal para los 

programadores y 

discnadores. 

Es preciso saber 

que solamente se 

puede manejar 

desde lapiz optico. 



PEEK A BYTE 

PEEK A BYTE es el ultimo editor 
dc disco. Recien salido en el 
mercado amcricano supone un 
avance considerable con respecto a 
los anteriores: por primera vez se 
oyc hablar en este genero de cditores 
de «INTELlGENdA». En efecto, si 
traduces un te.xto y colocas un texto 
de mayor taniaho que el original. 
PEEK -A BYTE actuara a modo de 
editor de texto y desplazara el resto 
del texto reorganizando el BAM y 
concatenando las pistas. 

TOUTANKAMON 

Toutankamon es la ultima creacion 
de Systems ELEVEN. Un juego de 
pantallas de tipo Aventuras de SIR 
ARTHUR PENDRAGON. Scgun la 
publicidad, hay miles dc pantallas 
dentro de los laberintos de la tumba 
de un PARAON en una piramide 
cuya complcjidad subyugara a 
arqueologos. egiptologos y 
empedcrnidos aficionados a los 
juegos de salas. 

BLAZING PADDLES 2000 

BLAZING PADDLES fuc durante 
mucho tienipo uno de los mejores 
programas de dibujo de nuestro 
micro hasta que salio Doddle, v tras 
el PROEl PAINTER, luego THE 
ARTIST, etc... Esta claro que la 
casa BALJDVILLE, autora de esta 
jova. no se resigno a perder 
mercado: el resultado de su Irabajo 
lo tenemos aqui: una ampliacion de 
posibilidades considerable, un juego 
de 40 fonts (letras) en diferentes 
tamahos. 



riexidraw SSU 3yst«H H«nu 



Ftcxidraw gSI *..•••■! 
Pen Palatte .,..■.... 

Transgraph • 

Sprite Editor .....*. 

Sprite Animator ...... 

Light Pen Piano .... 

Synthesizer 

Please select a prosraw with the pen 
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SHORT CIRCUIT 

• OCEAN ■ PERSECUCION DE ROBOT 

Continuando con ia saga de juegos 
dc lipo peliculero Uega SHORT 
CIRCUIT (Cortocircuito). 
La peliculii sc constituyo en un 
autentico exito, sobre todo entre el 
publico juveni!, cuando se estreno, 
durante las pasadas fiestas navidenas, 
en toda Espana. Su director crtnTohn 
Badham, que no hace mucho tiempo 
nos impacto con su notable Juegos de 
guerra, que incursionaba a fondo 
tambien en el tema de la informatica 
al contarnos lo que podia pasar 
cuando un hacker se introduce en un 
ordenador central del Pentagono. 
Para ios que no ban visto 
Cortocircuito, se trata de lo que le 
sucede a un robot de uso inilitar muy 
peligroso, un dia, Iras una 
dcmostracion. 

Una descarga de electricidad ie hace 
cobrar la razon ;jy Ic da vida!! 
A partir de ese momento se trata 
simplemcntc dc salir dc la factoria en 
la que se halla (NOVA 
INDUSTRIES) y lograr esconderse 
para que le dejen tranquilo. 
En la primera fase del jucgo dcbcras 
huir del recinto industrial sin olvidar 
recoger antes: software y hardware 
para activar tu potente laser, asf 
conio un mccanismo para poder 
saltar. 

En la peli'cula el robot se esconde 
dentro de un camion que recoge 
basura para pasar Ios controlcs y 
poder asi huir de NOVA. 
Tu robot dispone, sin embargo, de 
menos movilidad que en la pelicula 
real: dcbcras buscar Ios objetos 
mencionados y para ello deberas 
colocarte frente a ellos y activar en 
la pantalla que aparecc en la parte 





inferior derecha el comando 
SEARCH. 

Si lo que quieres es manipular un 
objeto selecciona la opcion 
UTILICE, veras que ei robot puede 
realizar diversas acciones. 
jOJO! porquc cl Numcro 5 csta 
perseguido por innumerables 
enemigos: Ios otros robots de la serie 
SAINT han sido reprogramados para 
dcsactivarlo, las fuerzas de seguridad 
tienen orden de destruirle sin 
compasion. Los que ya han visto la 
pelicula saben que el unico niodo de 
salvarsc cs construyendo un robot de 
similares caracteristicas que haga de 
senuelo para que las fuerzas de 
seguridad lo machaquen y crean asf 
habcr acabado con el peligro. 



El jucgo resulta simpalico y esta 
construido sobre una base grafica 
similar a la de LOS VISITANTES, 
En resumen: COR lOCIRCUITO se 
inscribe con mcritos propios, en la ya 
larga lista de programas inspirados 
en cxitos cinematograficos. 



ANimcmN 


7 


INTERES 


6 


GfiAFICOS 


7 


COLOR 


6 


SONIDO 


6 


TOTAL 


32 



INPUT 59 



SILENT SERVICE 

• us. GOLD M GUERRA SUBMARINA 

SERVICIO SILENCIOSO es el 

nombre que fuc dado en Estados 
Unidos al departamcnto que se 
encargaba de coordinar a los 
submarinos que tomaron parte activa 
en la Segunda Guerra Mundial. 
Servicio Silencioso tuvo su mayor 
desarrollo frente a las costas 
japonesas y su mision era atacar toda 
la marina imperial y neutralizar la 
marina mcrcante japoncsa. 




Como juego de simulacion dispones 
de una serie de niveles de dificultad 
(aqui llamado de realidad) que hacen 
las misiones mas dificiles y realistas. 
El juego incorpora tres lipos de 
opcioncs de juego: PRACTICAS dc 
TORPEDO / CANON, ACCIONES 
DE CONVOY, y, por ultimo, 
PATRIJLLAS DE GUERRA. 
Los niveles de dificultad son cuatro y 
te ponen en los diferentes papeles de 
los puestos de responsabilidad. 
E! programa cuenta. ademas, con 
una serie de niveles de realidad que 
se pueden alterar. Asi, la visibilidad 
limitada hara que los barcos fuera 
del alcance del sonar no aparezcan 
en tu mapa. Otro de los factores que 
dotan al juego de un mayor reaiismo 
es ei de los convoys que hacen 
zigzags o bien torpedos defectuosos, 
que no cslallaran al hacer bianco... 

60 INPUT 



los niveles de dificultad afectan 
tambien a las acciones de los 
dcstructores encmigos y a su 
destreza. 

La pantalla de juego una vez 
definidos cstos caracteres se presenta 
como la cabina dc mando de un 
autenlico submarino; con el iovstick 
podras subir a la torreta, hacer 
inmersion, consultar el diario. 
examinar los diales de los que 
hablaremos mas adelante, etc.... 
cabe tambien la opcion de examinar 
los mapas de rutas. Cada accion 
realizada desde ei joystick hara 
aparecer una nueva pantalla: la de 
danos del submarino o la del 
pcriscopio en la que deberas 
identificar a tus enemigos segiin el 
perfil que tengan sus naves: cl juego 
incluyc 17 posibilidadcs diferentes de 
naves que identifican antes dc 



disparar los torpedos. 
Otra de las pan tall as mas 
importantes es sin duda la del 
mccanico de la nave: el nivel de la 
bateria, velocidad, rumbo, 
profundidad, indicador de periscopio 
de torpedos dispuestos, de 
combustible, etc... En la pantalla de 
danos del buque veras como aparece 
un mapa super dctallado de la nave y 
dc los danos causados. 
El manual de instrucciones es 
soberbio por la profundidad que 
alcanza detallando estrategias dc 
ataque asi como de defcnsa y modos 
de salir de situaciones embarazosas. 
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MICRO RYTHM 

• us. GOLD ■ MUSICA 

Los ordenadores ya ocupan un lugar 
propio en el campo de la musica 
profesional. 

Es sabido que los niusicos modornos 
cstan ulilizando cada vez mas el 
enorme potencial de sus 
instrumentos basados en 
microproccsadores para producir. en 
vivo, la misma variedad dc sonidos 
para la que hacc veinic aiios se 
hubJera nccesltado una orquesta 
completa. Es decir, sonidos 
producidos tradicionalmente por los 
instrumentos de cuerda. madera. 
metal y percusion. Hablemos de 
estos ultimos. 

MICRO RYTHM es un programa 
unico en su genero. ya que a partir 
de ahora podras disfrutar de una 
bateria digna del major grupo de 
ROCK por e! mtidico precio de 475 
ptas. 

Mientras cargas el juego. el 
programa, a difcrencia de los 
programas normalcs del coraercio. 
no hacc ningiin ruido. ninguna 
musica. probablemente porque el 
programador ha querido hacer ma\or 
el contraste entre el antes de cargar 
y despues. 
Una vez cargado aparece una 




simpatica pantalfa que te llcvara al 
menu de opciones de la caja de 
ritmos. MICRO RYTHM dispone dc 
tres modos dc trabajo: modo de 
composicion, modo compas y por 
ultimo, modo tiempo real. 
Quiza la mas entretenida en un 
primer momento sea la de tiempo 
real en la que todo lo que vayas 
tocando va saliendo en pantalla. 
El modo de tocar cs realmente 
asequible: basta pulsar una serie de 
teclas. Q cs el bombo, W tambor, 
estan casi todos prescntes, desde 
los platillos altos, bajos. cerrados, 
hasta la pandcreta pasando, incluso, 
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por el gong y las palm as. 
En modo tiempo real la pantalla se 
te habni qucdado oscura 
probablemente porque asi cl 
procesador pucde ir mas rapido. 
Si pasas ahora al modo compas veras 
que el sonido de un metronomo te 
ayuda a no perderte. Ve aitadiendo a 
los ritmos que vayas creando nuevas 
tonalidadcs, nucvos sonidos, etc... 
En la ultima opcion veras una linca 
en la pantalla que te indicara cualcs 
son los compases que has usado y 
cuales son los segmentos que estan 
vacios de todo sonido... Realmente 
un programa excepcional para los 
amantes dc los efcctos sonoros, para 
los que sientan inquietudes por la 
parte musical del ordenador o bien 
para quienes quieran hacer usos 
cxtremos dc esta caja de ritmos: por 
ejempio, hacer de pucnte entrc 
mezclas dc grabaciones. 
En resumidas cuentas, gracias a este 
dcstacado programa tendras la 
ocasion de rivalizar con los ya 
legendarios batcrfas Ringo Star y 
Charlie Watts. 
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ACE OF ACES 

• ACCOLADE ■ SIMULADOR BELICO 

ACE OF ACES es un remake del 
celeberrimo DAM BUSTERS. Pero 

esta vez esta realizado por la casa 
Accolade, que todos conoceis por el 
cuidado en la calidad t^rafica v el 



unico que podras hacer es caer en 

picado sin paracaidas. 

Caben tres tipos de misiones: aire, 

tierra (ataque a convoys de barcos) y 

ataque a trenes. 

Elige la que imis rabia tc de y veras 

en pantalla en seguida un informe de 

la INTELIGENCIA MILITAR. que 



presencia con la mayor urgencia. En 

ayudante veras otra 
serie do controlcs: la fuer/.a de los 
flags, las RPM, volumen de gasoil, 
dcpositos derccho e izquierdo y, 
colmo del detallc, hasta un extintor. 
Cualquier desvfo de la ruta !o podras 
observar puntualmentc en el mapa. 
En cualquier case, cuando llcgues a 




realismo de la animacion de sus 
productos. 

Al igual que en el juego anterior, la 
accion se desarrolla en la Segunda 
Guerra Mundial, aunque esta vez el 
objetivo no es el misnio que en cl 
caso anterior. Sin embargo, la forma 
de cambiar la posicion del punto de 
vista desde dentro del avion ha sido 
respetada: 1 = Piloto, 2 = Vista 
derecha, 3 = Vista izquierda, 
4 = Mecanico de vuelo, 6 = Mapa. 
A pesar de todo, el juego ofrccc dos 
opciones bien diferentes: por una 
parte misiones de vuelo y por otra 
practicas. Te recomendamos que 
empieces por estas. 
Considerate aprobado cuando seas 
capaz de voivcr intacto a la base. 
Pero mientras tanto alii van una scric 
de consejos obvios en algunos casos 
pero que causan cl 75 % de los 
accidentes de avion en el Ace of Aces: 
ojo con las municiones y el 
combustible. 

Mientras lo primero sucede en 
cuanto pases los primcros momentos 
de apuro, y tiispares sin apuntar 
demasiado, corriendo asi cl riesgo de 
qucdarte en el aire colgado cntre una 
mullitud de encmigos. Lo segundo 
pasara cuando te descuides y lo 
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te dara una puntual informacion de 
las condiciones atmosfericas, las 
dificultades que puedan surgir, el 
armamento, municiones y ruta mas 
seguros apareceran en pantalla. 
Aun asi el juego te dara opcion para 
cargar las municiones que estimes 
oportunas: no te seran nada 
necesarias bombas para raids aereos 
como no sea que pretcndas 
bombardear aviones en el aire. 
Una scrie de indicadorcs te liaran la 
vida mas sencilla. Desde la cabina 
del piloto veras la velocidad del 
viento, la palanca o timon, un radar 
combinado con un indicador de 
altitud del enemigo. Aqui. dando un 
par de toques a derecha o izquierda 
de la palanca, veras aparecer en 
pantalla los puntos de vista que 
tendrias mirando a ambos lados de 
aparato en el aire; 
veras las helices 
dando vueltas entre 
las nubcs (realizado 
de forma magistral). 
En la parte inferior 
izquierda un icono de 
avion representa las 
zonas en las que 
exislen problcmas o 
bien las zonas en las 
que se requiere tu 



tu punto de destino deberas ir al 
puesto de artificiero y desde alli abrir 
las compuertas de las bombas. 
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10TH FRAME 

• ACCESS ■ JUEGO DE BOLOS 

lOTH FRAME cs un simulador de 
los JLiegos de bolos, producido por 
ACCKSS. !a casa harto celebrc por 
los BEACH HEAD, LEADER 
BOARD, etcetera. 
Antes de rcferirnos a esta version in- 
formatizada de este popular juego te 
iiustraremos — o recordaremos — su 
historia y tundarncntos. 
Los bolos es el deporte de eancha ee- 
rrada que tiias aficionados cueiita en 
Estados Unidos. Fiie introducido por 
los holandescs en la isia de iVIanhat- 
tan (Niicva York) en 1623. Sus nor- 
mas sc dictaron en 1895. 
En estc deporlc el jugador lanza una 
bola hacia un grupo de diez bolos 
dispucstos en triangulo, con objeto 
de dcrribar cl mayor numero posibic 
dc ellos. 

Los bolos se disponen al final de un 
pasillo. A ambos lados de la pista 
existen unos canales para recoger las 
bolas que se desvian. Se juega con 
bolas dc madera de guayaco, con dos 
o trcs agujeros para introducir los 
dedos. Ei strike, la mejor jugada, 
consiste en derribar todos los bolos 
al primer golpe. El score maximo es 
de 300 tantos. Gana la partida el ju- 
gador que haya conseguido mayor 
tanteo. 




lOTH FRAN4E 
ofrcce la posibilidad 
de participar en un 
OPEN DOMES- 
TICO DE BOW- 
LING, incluyendo 
hasta 8 jugadores y 
hacer iiguillas 
crcando equipos cn- 
tre los jugadores. 
Hay trcs niveles de 
dificultad que van 
desde el KIDS (ni- 
nes) hasta profesio- 
iial, pasando por 
amateur. El Juego 
es tnuy sencillo: 
cada jugador tiene 
ante si' una marca 
que Ic ayuda a se- 
Icccionar el angulo 
de tiro. El otro pa- 
ramctro es la posi- 
cion que cada juga- 
dor tiene con res- 
pecto a la pista. 
El juego se com- 
plica enormemente cuando 
apareccn los efectos (llamados 
aqui tiro de gancho) y el modo 
de obtenerlo que es harto diff- 
cil. 

El juego decepciona un poco. 
ya que solo hay una pantalla de 
juego y la animacion no es la 
que nos tiene acostumbrados la 
casa. 
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ACROJET 

• us. GOLD ■ VUELO ACROBATICD 

ACROJET es un siinulaclor de vuclo 
acrobatico en JET. De ahf la palabra 
Acrojet- 

Al tratarse dc un simulador de vuelo 
acrobatico se desarroUa como una 
serie de concursos de diferente nivel. 
Pucdcs clcgir entre el 
DECATHLON, PEN I H EATON o 
bien una sola prueba. 
Antes dc que participes en las 
pruebas quiza sea nicjor que tc hagas 
con los controles del avion. Toma el 
joystick, muevelo y veras como 
ACROJET es un AVION que 
responde en parte a niovimientos de 
palanca muy suaves pero rapidos. 
La palanca hace las veces del mango 
del avion (hacia delante = abajo; dc- 
recha e izquierda provocan fuertes 
virajes); como en otros simuladores 
puedes disponer de olros pontes de 
vista, dando a una serie de teclas; 
dispones asimismo de acelcrador, 
frenos de tren dc aterrizaje, frcnos 
de velocidad (para cuando estas en el 
aire), flags, etc... Otra serie de con- 
troles te informaran sobre la poten- 
cia y fuerza de tu avion, Flaps, indi- 
cador dc rumbo, altimetro, etc., 
poniendo a tu disposicion todos los 
clasicos instrumentos dc navegacion 
aerea que dcberia controlar un au- 
tentico piloto. 

Las diferentes competiciones 
incluyen una serie de pruebas 
dotadas de coefieientes de dificultad 
que van desde LO hasta 2.0 
(aterrizaje en planeo), que seriin 
puntuadas por jucces imposibles de 
engatusar. 




Gran parte del atractivo de este 
programa reside en el tutorial que 
incluye sobre modos de pilotaje. 
acrobacias que se hicieron famosas 
en la epoca dc los grandes pioncros 
de la aviacion (a principios de siglo). 
en la era «romantica» de este 
apasionante medio de transporte ( en 
el periodo que medio entre las dos 
ultimas guerras mundialcs: 1918- 
19.39), en la Segunda (juerra 
Mundial, etc. Con mapas para que 
las intentes realizar en casa sin 
peligros para tu salud. Y un 
divertido diccionario del argot de los 
pilotos que hara que pronto tomes 
intercs por la materia. 
La doeumcntacion es soberbia y los 
ejercicios van en dificultad creciente. 
haciendo que el programa sea de 
mucha mas rapida asimilacion que la 



mayoria de los juegos dc simulacion. 
Con que ya lo sabes: cstc es tu pro- 
grama si quicrcs convertirte en un 
emulo del norteamericano Charles 
Lindbergh, los espanoles Jimenez e 
Iglesias u otros ases de la historia de 
la aviacion que con sus hazanas mar- 
caron hitos en la apasionante trayec- 
toria de este medio de transporte en 
el presente siglo. 
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Cambio programas para C-64 en cinta 
como; Simon's Basic, Infiltrator, Uri- 
diutn, Commando, Antiriad... por pro- 
gramas como Gamemarquer, Logo, Si- 
mon's Basic II, Gauntlet... etc. Enviar 
lista 3: D. Almagro. Plaza Guillemo, 4, 
4.°-1.'' Andorra ia Vieja. Principado de 
Andorra. 



Cambiamos programas en cinta para C- 
64. Tenemos las ultimas novedades en 
juegos y utilidades para commodoria- 
nos. Fernando Frances Gil. C/ Gomis, 
14. Ontinyent. Valencia. Tl.: 96- 
248 30 19. 



Intercambio juegos para C-64. Poseo 
mas de 800 programas, novedades. 
Jorge Pena. Avda. Paralelo, 114, 5.°-2.' 
drch. Barcelona 08015. 



Vendo Commodore Plus/4 casi nueva e 
incluyo manuates de programacion y 
funclonamiento de los programas in- 
tegrados; Base de datos, Tratamiento 
de textos, Hoja electronica y Graficos. 
Perfecto estado por solo 15.000 ptas. 
Ademas compro COMMODORE 64 en 
buen estado y funcionamiento. Estaria 
dispuesto a ofrecer entre 10.000 y 
15.000 ptas. Compraria unidad de disco 
1541 por la cual pagarfa entre 15.000 y 
18.000 ptas. Solo provincia de Barce- 
lona. Carlos Felipe Spada. C/ Rosellon, 
290. Barcelona 08037. TL: 257 75 51. 



Compro cartucho Simon's Basic o lo 
cambio por juegos (discos) como 
Rock'n Wrestle, Law of the West, Bun- 
geling Bay, Ghosts'n Goblins. M. A. 
Moreno. Via G. Mameli, 2A/19. 16122 
Genova. Italia. TL: 010-88 34 41. 



Intercambio todo tipo de programas 
para el C-64. Poseo bastantes noveda- 
des. Fco. Javier Antunez Gallego. R./ 
Castillo, 85, 3.°-2." Vilanova i la Geltru. 
08800 Barcelona. 



&.20C0 

Compro unidad de disco o puedo ofre- 
cer a cambio un lote de programas va- 
lorado en 13.000 ptas. Tambien me in- 
teresan la Impresora o monitor color de 
cualquier periferico para CBM-64. 
CAMBIO CBM-64 por CBM-128 pa- 
gando la diferencia y regalo progra- 
mas. Intercambio software para CBM, 
tengo todas o casi todas las ultimas no- 
vedades. Fco. Javier Bernal. C/ Eche- 
garay, 1. Cantalejo. Segovia. TL: 911- 
52 04 04. 



Vendo impresora SEIKOSHA GP-700 
VC (de color); comprada en Navidades 
del 85. Esta como nueva. Precio a con- 
venir. Borja Martinez. C/ Fernando Agu- 
llo, 14. Barcelona 08021. 



Intercambio programas para C-64. Pro- 
meto contestar, mandar lista. Jose 
Bueno Galian. C/ Dr. Soler, 9. 30730 San 
Javier. Murcia. 



Intercambio o vendo programas para el 
C-64. Poseo mas de 100 programas. En- 
viare listado a toda persona que es- 
cribe. Carmen Cotte. San Patricio Plaza 
P. M. C. Box 78. San Juan. Puerto Rico 
00920. U.S.A. 



Cambio programas: Summer Games II, 
Beam Rider, Rambo, Kung-Fu Master, 
Mision Imposible, etc. y 62 programas 
de este tipo con instrucciones por uni- 
dad de discos 1540, 1541 o 1571 en per- 
fecto estado. Pso. de la Montana, 141, 
atico-2.'' Granollers 08032. Barcelona. 
TL: 93-870 61 59. 



Intercambio programas en cinta para el 
C-64. Alberto Marote Ltebana. C/ de la 
Fe, 4, 3.''-1.=' 17300 Blanes. Gerona. 



Vendo por cambio a equipo mayor: 
Unidad de Disco modelo 1541 con pro- 
gramas de regalo: 39.000 ptas. Impre- 
sora Riterman C -h sistema N<Q y ma- 
nuales; 52.000 ptas. The Final Cartridge 
(cartucho utilidades): 7.000 ptas. Inter- 
face para copias cassette: 2.000 ptas. 
Ademas poseo numerosos,discos y cin- 
tas con toda clase de utilidades y jue- 
gos. Jaime Rovira Matias. Avda. Cata- 
lunya, 133, 1.°-2.^ Parets del Valles. Bar- 
celona. TL: 562 09 85. 



Intercambio, vendo o compro juegos 
para C-64. Preguntar por Inaki. TL: 948- 
82 15 73 o 82 24 13. 



Vendo interfaces copiadores de com- 
pieta seguridad (tengo 10). Daria 600 
programas por unidad de disco 1541 o 
por Impresora; 200 programas por Da- 
tassette y 150 por lapiz optico o sinte- 
tizador de voz. Llamer a partir de las 21 
h. Jose Julio Garcia. TI.: 91-895 32 54. 



Intercambio juegos y utilidades en 
cinta para C-64. Poseo unos 600 titulos 
(Ghosts'n Goblins, Bomb Jack, Asterix, 
Summers Games I); escribeme y pro- 
meto contestar. Jose Jimenez Jimenez. 
C/ Joan Maragall, 5. Santpedor. Barce- 
lona. 

Intercambio programas en cinta para 
C-64. No importa que tengas pocos. 
Prometo contestar. David Jou Sala. C/ 
Lerida, 39, bajos. 08004 Barcelona. 

Gambia curso de introduccion al BASIC 
para C-64 y una cinta con programas 
valorados en 8.000 ptas. por cartucho 
SIMON'S BASIC con instrucciones. 
Tambien desearia formar parte de un 
club de usuarios del C-64 en Alcorcon. 
Escribir: J. Jose Pulido Labrador. Plaza 
Ondorreta, 5, 2.°A. Alcorcon. Madrid. 

Desearia contactar con gente que tu- 
viese los programas de E.G.B. Santi- 
llana del curso 8.° Los cambiaria por: 
Cobra, Leaderboard, C. Warriors, 
PaperBoy, etc. Israel Jodar. C/ Padrdn, 
2, 7.°C, esc. izqda. S. Jose de Valderas. 
Alcorcon. Madrid. TL: 91-619 22 27. 

Tengo el C-64 y me compre dos juegos 
con las instrucciones en ingles (en Gi- 
braltar). Soiicito instrucciones de: Mi- 
sion Imposible y Dragon's Lair. Pagare 
las fotocopias. Antonio Benitez Bu- 
rraco. San Nicolas, 9, 2.''A. 11207 Al- 
geciras. TL: 956-60 23 17. 

Intercambio programas en cinta para el 
C-64, poseo juegos como: Rambo, 
Miami Vice, Green Beret, Winter Ga- 
mes y los 3 Strip poker entre otros. 
Diego Hernan Aldonza. C/ Juan XXIII, 
75-Cuatrovientos. Ponferrada. Leon. 
Tl.: 987-41 46 08. 



Intercambio programas de juegos ori- 
ginales para el C-64, como: Uridium, 
Boulder Desh, Zorro... etc., los cambio 
por Summer Games I, II, Fist II o Winter 
Games. Tambien intercambio juegos y 
utilidades en turbo, con carga principal 
de Turbo V-3 o Turbo Tape, como: 
Broad Street, Breakdance... etc., en to- 
tal dispongo de 20 programas origina- 
les y 40 programas turbo. Todo ello 
tambien lo vendo por 20.000 ptas. Ro- 
drigo Perez Sanchez. CI Poeta Gerardo 
Diego, 1, 4.°A. TL: 942-33 08 58. San- 
tander. Cantabria 39011. 



Vendo lote de discos con utilidades y 
juegos para C-64, a buen precio. Victor 
Garcia Romero. Avda. de America, 14. 
28028 Madrid. 



Intercambio todo tipo de programas en 
FLOPPY o CASSETTE. Xavier Hernan- 
dez Sole. C/ El Roser, 34. 43770 Mora de 
la Nova. Tarragona. TL: 977-40 10 84. 
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Hioeo 



Cambiamos juegos e informacion ; mas 
de400 juegos. Somos un grupo de ami- 
gos con Commodore. Llamar tl.: 
671 34 23. 



Vendo ordenador Dragon 64, monitor 
de fdsforo verde, un joystick, 40 juegos, 
un cassette, etc. Precio a convenir. Lla- 
mar a Miguel Lopez. Telefono 
398 TO 39, Barcelona (de 2 a 4 de la 
tarde). 

Intercambio juegos y utilidades para el 
C-64. Poseo alrededor de 200 y todos 
son buenos. Mandar lista, prometo 
contestar antes de una semana. Fran- 
cisco Javier Gil. Plaza del Ejercito, 6, 
9.°-2.^ Lerida 25002. Llamar al telefono: 
973-26 17 49. 



Intercambio juegos para el Commo- 
dore. Poseo: Dustin, Gaunlet, Ento- 
bed... etc., tambien compro y vendo 
juegos. jAh!, y a quien tenga mapas de 
juegos complicados o le interese tener- 
los puede llamar al tl.: 91-891 21 19. 
Jose Luis Gonzalo. C/ Goya, 13. 28300 
Aranjuez. Madrid. 

Intercambio programas en disco para 
el G-64. Escribir: Jose Racero Ramirez. 
C/ Ingeniero Aubans, 23, &.° 46035 Be- 
nimamet. Valencia. 



Vendo cartucho ESCRITOR VI. {Tra- 
tamiento de textos en castellano para el 
C-64) y seikosha SP-800, instrucciones. 
Jose A. Larumbe Aragon. C/ Rucabado, 
14, 4.°E. Castro Urdiales. 39700 Canta- 
bria. Ti.: 941-86 04 96. 



Cilveti, 5, 2° izqda. 31011 Pamplona. 
Navarra.TL: 948-25 86 06. 



Intercambio juegos para el C-64. Escri- 
bir: Jorge Arias Carrera. C/ Rio Val- 
carce, 1, 5.°B. Ponferrada. 24400 Leon. 



Vendo juegos para el Commodore, 
HyperSports y Green Beret en sus cin- 
tas originales a 600 ptas. c/u y 1 .000 los 
dos. Antoni Torrens. C/ Urgel, 97, pral. 
2." Barcelona 0801 1 . Tl. : 93-323 41 98. 



Intercambio programas para el C-64. 
Tambien querria vender paddles, sin 
usar. Xavler Puig. Ctra. a BAGA, 30. 
Guardiola de B. 08694. Barcelona. 



Cambio juegos para el C-64 de calidad, 

como: Infiltrator, Goonies, Uridium, 
Green Beret, etc. Tambien desearia for- 
mar parte de un Club en La Corufia. 
Carlos Vazquez Veiga. Avda. de los Cai- 
dos, 26, 2° drcha. 15009 La Coruria. TL: 
28 21 05. 



Vendo o cambio juegos, tales como: 
Paperboy, 1942, Galvan, C. Warriors, 
etc. Sergio Villanueva Rodriguez. C/ M." 



Intercambio programas para el C-64. 
Poseo mas de 1.200. Uso cassette. Se- 
bastian Gil Villanueva. C/ Maldonado, 
28. Los Barrios. 11370 Cadiz. 

Intercambio juegos y utilidades para el 
C-64. Tengo mas de 100 programas de 
buena calidad. Llamad al 96-238 51 97. 
Miquel Marti. Avda. Cristobal Colon, 3. 
Ontinyent. Valencia. 

Vendo C-64 con cassette, joystick 
(Spectravideo) y coleccion de juegos y 
programas de aplicacion con sus res- 
pectivos manuales, todo en perfecto 
estado. VENDO Impresora Riteman 
C+(NLQ). Precios a convenir. Jordi 
Manyer Cuberta. P.° de Sent Joan, 111, 
6.°-2.'' 08037 Barcelona. TL; 93- 
257 54 58. 



Vendo ordenador Einstein 80 K de RAM 
(ampliables). Se incluye: monitor fos- 
foro verde, impresora y programas de 
contabilidad, base de datos, trata- 
miento de textos, Multiplan. Precio a 
convenir. Ruego llamar a los telefonos 
91-248 41 47-248 40 54 (Madrid). Pre- 
guntar por Oscar. 



-I 

I 

I 

I 



VXXX\XXXXXXXVVXXXNXX>XXX\XNXS>XVOvX>>X\XXXXXVXXXVNXXN>XX\>>^^ 



Suscribase ahora a 



PRECIO DE CUBIERTA PTAS. 375 
MENOS: 20 % de descuento al suscriptor Ptas. 
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USTED PAGA SOLO PTAS. 300 (por ejemplar) 

SUSCRIPCION ANUAL 12 EJEMPLARES 4.500 Ptas. 
(900 Ptas), USTED PAGA SOLO 3.600 Ptas 
(entrega a domicilio gratis) 



INPUT le proporciona 

INFORMACION... DIVERSION... FORMACION.. 
(un curso completo de programacion)... 




des^^' 



efl*^ 



lOt 



^''c6.od^- 






todos 



-eel 



et\te 



&^ 




...LA POSIBILIDAD DE MEJORAR 
SU NIVEL PROFESIONAL... 
EL NIVEL DE LOS ESTUDIOS... 



— J ^o la intoTmStica-- 
Descubraelmundo^J^^.tadW^d... 
:.ApT«T^daaproS«m^^^„^dores... 
Diviertase con os 
■.Est6siempTeald«- 



Recorte y envie este coupon 

de inmedlato a EDISA, Lopez de Hoyos, 141 

28002 Madrid, o bien llamenos 

alTelf. (91) 415 97 12 



y XXXX>XXXVvXXXXXXXV:VvXXXXXNVSX\XV 



INPUT 



BOLETIN DE SUSCRIPCIOM 



SI, enukme ENPUT COMODORE durante 1 afio (12 ejemplares). al precio especial de oferta de 3.600 Ptas. AHORRANDOME > 
900 Ptas. sobre el precio normai de portada de 12 ejemplares sueltos. {For favor, cumpllmente estc boletin con sus datos personalcs a ^ 
indfqusnos con una (X) la forma de pago por usted elegida. metalo en un sobre y deposTtclo en el buz6n mis prfiKimo). V 



APELUOOS I J I I I \ I i t_ 



-I I I [_ 



DOMJCLUO £ I I I I i I I 1 L_ 



_1 1 ffUH I 1 1 J PISO \ \_ \ ESCALEHA 



-J I I I I L_ 



_l PROVTHOA L_ 



_l I I I I I I I L_ 



_J COO- POSTAL 
_I TELF ( I I 



_l_l I 1 ] I 1 



PROFESEON I l_ 



J 1 1 1 .-1 .. I L. 



FORMA DE PAGO EUEGIDA: Reemboiso D Domici3iacl6t^ Bar>caria , □ 

Talfin notninatiwo que ad-Junto a favor de EDISA --.,..,,.,_,.., | ) 

I INSTRUCCIONES DE DOMICILIACION BANCARIA (si es cicgida por usted) 



Muy sehores mfos: 

Les mego que, con cargo a mi cuenta n.° 

Editorial PLANETA-AGOSTINI a nombre de, 

l_l I l_l I I SAMCQ/C dc AH0RR05 L 

I I I I 1 I I I HRECCION I I L I 



de_ 



.d€ 19_ 



_ aticndan^ hasta nuevo aviso, el pago de 3ds recibo5 que les presentaf^ O 

1 



I I I I I 1 1 I I L__l L_ 



_l 1 i I I I I L_ 



1 I \ I I I l_J 1 I 1 I I I I I I l_l L_ 



_l I I I l_J I I I L 



-I I I I I 1 \ I I I I \ I I I L_ 



J J J I L 




EN TIENDAS ESPECIAUZADAS Y GRANDES ALMACENES, DIRECTAMENTE POR CORREO TELEFONO A: PRO El N, S.A. 

D.stribulcio en Cataluna por; DISCOVERY INFORMATIC C/. Arco Iris, 75 - BARCELONA - Tels 256 49 08 ; 03 Velazquez, 10- 28001 Madrid - Tels. {91) 276 22 08/09 





^TuMLfCjEnl ^y ^owTpVvvoolor^. 



TARDARBVIOS EN VER 
ALGOPARECIDQ 



En informatica ya es dificil sorprender. 
Pues bieii Commodore lo ha conseguido 
con Amigi, . 

Mas que una nueva generacion de orde- 
nadores, el Amiga d. Commodore repre- 
senta un nuevo concepto. Un ordenador 
que ofrece una serie de posibilidades y 
abre unos caminos que hasta hoy eran im- 
pensables. 

Entre las n6vedades de este ordenador 
profesional destacan: b posibilidad de tra- 
bajar con un procesador de 32 bits y de 3 
coprocesadores especificos, actuando U^s 
4 al tiempo. 

Ademas, Amiga dispone de pantallas y 
ventanas configurables con una resolucion 
de 640 X 400 puntos escogiendo entre 



una paleta de 4.096 colores. 

Trabaja con 4 canales independientes 
pohfonicos con voz masculina y femenina, 
y por si fuera poco , Amiga de Commodore 
es el untco ordenador multitarea que puede 
efectuarvarios trabajos simultaneamente. 

El precio tambien i=;s importante. Por 
330.000 ptas. ex. IVA, el Amiga incluye: 

- Unidad central con 768 K RAM. 

- Monitor de alta resolucion en color y so- 
nido. 

- Unidad de discos de 880 K. 

- Teclado profesional y raton . 

Por mucho que avance la investigacion 
en el campo de los ordenadores, tardare- 
mos en ver algo parecido. 
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Imagina siempre lo mejoi: 



Microelectronica y Control , S.A. Unico representante de Commodore en Espaha. 

cl Valencia, 49-53 Tel. (93) 325 5702 08015 Barcelona - c/ Ardemans, 8 Tel. (91) 246 37 36 28028 Madrid 



'^: 



